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Preface 


Preface 


We  use  the  term  "  M  A  D/I "  to  refer  to  any  of  four  different 
things: 

•  The  BAD/I  Project  --  a  research  project  conducted  at  the 

University  of  Michigan  Computing  Center,  and  jointly 
sponsored  by  the  Computing  Center  and  the  University's 
CONCOMP  Project.  (CONCOMP:  Research  in  Conversational  Use 
of  Computers.  Supported  by  the  Advanced  Research  Projects 
Agency,  Department  of  Defense,  Washington.,  D.C.) 

•  The  MAD/I  Facility  —  a  flexible  translator-building  facility 

which  runs  on  the  IBM  System/360  computer.  Created  for  the 
purpose  of  building  the  MAD/I  Compiler,  the  MAD/I  Facility 
provides  for: 

(a)  The  definition  of  a  user-specified  programming 
language,  subject  to  some  constraints  on  lexicon, 
syntax,  and  interpretation  seguence. 

(b)  The  specification  in  detail  of  a  translation  process 

for  the  defined  language,  using  the  MAD/I  Facility  as 
a  "skeleton"  for  the  translator. 

(c)  The  amalgamation  of  the  translation  specification  with 

the  skeleton,  to  produce  a  complete  translator  for  the 
defined  language.  In  general,  the  resulting 
translator  runs  on  the  IBM  360,  and  directly  produces 
object  modules  for  the  360.  The  translator  (and  hence 
the  language)  can  be  modified  ("extended")  at  compile 
time,  producing  an  "extensible- language"  effect. 

•  The _ MAD/I _ Language  —  a  particular  procedure -oriented 

algebraic  language,  designed  for  implementation  on  the 
MAD/I  Facility.  The  MAD/I  Language  is  intended  to  be 
useful  both  as  a  general-purpose  language,  and  also  as  a 
convenient  base  or  "core"  language  for  extension  into 
various  dialects. 

•  The  MAD/I  Compiler  —  a  compiler  for  the  MAD/I  Language, 

implemented  in  the  MAD/I  Facility.  To  date,  the  only 
version  of  the  MAD/I  Compiler  runs  in  MTS  (Michigan 
Terminal  System)  and  produces  object  modules  for  MTS. 


This  manual  is  the  user's  manual  for  the  MAD/I  Language  and 
the  MAD/I  Compiler.  It  is  intended  as  a  reference  manual 
(rather  than  a  teaching  manual) ,  and  assumes  that  the  reader  is 
already  familiar  with  languages  such  as  PL/I.  The  MAD/I 
Language  is  described  in  Part  I  of  this  manual,  and  the  Compiler 
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is  described  in  Part  II.  There  are  also  three  appendices.  The 
reader  is  urged  to  read  Section  1  (Introduction  to  the  Language) 
and  Appendix  A  (Syntax  Description  Notation)  first. 


For  further  reference  on  MAD/I: 

D.  L.  Mills,  "The  Syntactic  Structure  of  MAD/I",  CONCGME 
Technical  Report  7,  June  1968. 

(Presents  a  formal  syntactic  description  of  an  earlier 
version  of  the  MAD/I  Language;  also  describes  the 
novel  precedence-oriented  parsing  technique  built  into 
the  MAD/I  Facility.) 

Allen  L.  Springer,  "Defaults  and  Block  Structure  in  the 
MAD/I  Language",  CONCOMP  Memorandum  31,  July  1970. 

Ronald  J.  Srodawa,  "An  Example  Definitional  Facility  in 
MAD/I",  CONCOMP  Memorandum  32,  July  1970. 


The  work  presented  here  is  the  result  of  the  combined 
efforts  of  a  number  of  people  at  the  University  of  Michigan 
Computing  Center,  working  at  various  times  over  a  period  of  five 
years.  The  principal  contributors  are  acknowledged  below. 

Professors  Bruce  H.  Arden  and  Bernard  A.  Galler  were  the 
project  co-ordinators.  They  participated  in  the  design  of  the 
language,  and  wrote  and  edited  earlier  versions  of  the  manual. 

Most  of  the  design  work,  and  all  of  the  programming  and 
debugging  are  due  to; 

Bruce  J.  Bolas 
Charles  F.  Engle 
David  L.  Mills 
Allen  L.  Springer 
Ronald  J.  Srodawa 
Fred  G.  Swartz 

Finally,  we  should  like  to  express  our  appreciation  to 
Professors  Robert  C.  F.  Bartels  (Director  of  the  Computing 
Center)  and  Franklin  H.  Westervelt  (Director  of  the  CONCOMP 
Project),  who  have  supported,  encouraged,  and  sometimes  prodded 
the  MAD/I  effort  since  its  inception. 
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INTRODUCTION 


HAD/ I  was  originally  conceived  in  1965  at  the  University  of 
Michigan  Computing  Center  as  a  relatively  simple  carry-over  of 
the  HAD  language  from  the  IBM  7090  computer  to  the  IBM 
System/360,  with  perhaps  a  few  straightforward  extensions.  This 
goal,  however,  was  later  considerably  revised.  (For  information 
on  the  MAD  language,  refer  to:  "The  Michigan  Algorithm  Decoder", 
Revised  Edition,  1966  (out  of  print);  also  see:  B.  W.  Arden, 
B.  A.  Galler,  and  R.  M.  Graham,  "The  MAD  Definition  Facility", 

12,8  (August  1969),  432-439.) 

The  COlfCOMP  Project  was  formed  in  December,  1965,  to  do 
extensive  research  in  the  conversational  use  of  computers. 
CONCOMP  needed  a  qeaeral-purpose  language  suitable  for  writing 
conversational  programs,  and  also  wanted  facilities  for  defining 
new  data  types,  operations,  and  statements  into  the  language. 
Therefore,  CONCOMP  strongly  supported  the  development  of  an 
extended  MAD  language  which  would  serve  these  needs,  and  this 
became  the  new  goal  of  the  language  project.  In  these  early 
days,  the  language  was  known  variously  as  "MADE",  "COMET",  or 
"MAD/360". 

As  work  on  the  language  and  compiler  progressed,  it 
gradually  became  apparent  that  it  was  not  feasible  to  retain 
useful  compatibility  yith  7090  MAD.  Also,  the  need  for  a 
flexible  definitional  facility  forced  the  re-examination  of 
basic  concepts  about  the  structure  of  programming  languages. 
Eventually  it  was  agreed  that  the  MAD/I  project  was  actually 
developing  a  new  language  (and  compiler)  ,  which  would  be 
independent  of  MAD. 

The  goals  of  the  MAD/I  project  were  again  re-defined.  We 
now  wanted  a  language-and-compiler  system  with  the  following 
features: 

(A)  It  should  contain  a  pre-defined  algebraic  language,  suitable 

for  conventional  general-purpose  use  without  any 
definitions  from  the  user. 

(B)  The  language  should  have  a  rather  general  syntax,  so  that  a 

variety  of  new  statements  and  operators  might  be  defined 
into  the  same  framework  as  the  pre-defined  constructs. 

(C)  It  should  contain  a  powerful  definitional  facility  usable  by 

a  moderately  sophisticated  programmer.  This  facility 
should  allow  the  user  to  modify  the  pre-defined  language  so 
as  to  satisfy  his  special  requirements.  In  particular,  it 
should  allow  the  definition  (or  re-definition)  of: 

(1)  Data  structures  and  data  types. 
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(2)  Statements  (including  declarations). 

(3)  Operators  and  operations,  either  in  terms  of  existing 

operations,  or  in  terms  of  an  assembler-like  language 
allowing  access  to  the  object  machine  instruction  set, 
at  the  user's  option. 

(D)  The  compiler  should  be  reasonably  fast,  especially  when  the 

program  contains  no  new  definitions. 

(E)  The  compiled  object  program  should  be  reasonably  efficient, 

although  perhaps  not  highly  optimized. 

The  earlier  goal  of  compiling  "conversational"  programs  was  seen 
as  primarily  an  operating  system  problem.  This  was  nicely 
fulfilled  at  Michigan  by  the  development  of  MTS  (Michigan 
Terminal  System) ,  which  also  was  partly  supported  by  CONCOME. 

The  goals  above  have  largely  been  fulfilled,  with  a  few 
exceptions.  We  will  discuss  them  in  order: 

(A)  The  pre-defined  MAE/I  language  is  a  useful  general-purpose 

language.  It  has  a  syntactic  structure  somewhat  like  ALGOL 
60,  but  it  includes  many  of  the  important  features  of  MAD 
and  PL/I.  The  MAD/I  Compiler  has  been  working  since  late 
1968,  and  is  being  used  for  practical  system  programming 
work.  Portions  of  the  compiler  itself  have  been  written  in 
MAD/I. 

(B)  The  syntax  rules  of  MAD/I  are  sufficiently  general  to  allow 

a  large  "space"  of  possible  definitions.  A  great  variety 
of  symbols,  expressions,  and  statements  is  syntactically 
possible. 

(C)  The  definitional  facility  exists,  but  it  is  not  complete. 

The  MAD/I  language  itself  is  implemented  using  this  "MAD/I 
Facility",  and  one  can  indeed  define  new  data  types, 
statements,  operators,  etc.  Unfortunately,  this  facility 
is  too  "low-level",  and  cannot  be  used  without  considerable 
study.  A  user-oriented  facility  is  certainly  feasible,  but 
this  reguires  more  research  and  development. 

(D)  The  compiler  is  unfortunately  not  fast.  It  is  large  and 

very  slow,  because  it  constantly  re-interprets  definitions. 
With  a  little  more  work,  the  compiler  could  be  speeded  up 
by  a  factor  of  at  least  four. 

(E)  The  object  proqram  now  produced  is  reasonably  efficient, 

although  not  highly  optimized.  Even  better  object  code  is 
possible. 
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PART  I  ~  DESCRIPTION  OF  THE  MAD/I  LANGUAGE 


Section  1:  Introduction  to  the  Language 


1 . 1 _ General  Features 

This  section  briefly  mentions  some  of  the  principal 
concepts  and  features  of  the  MAD/I  language. 


Input  Form 

The  language  is  defined  in  terms  of  a  continuous  sequence 
of  characters,  independent  of  card  format  or  line  boundaries. 
The  compiler  accepts  its  input  as  a  sequence  of  records  (lines) 
which  may  vary  in  length.  This  input  is  normally  treated  as 
completely  free-form,  and  is  broken  into  a  sequence  of  symbols. 
Blanks  and  comments  may  be  used  freely  between  symbols,  but  most 
symbols  cannot  contain  blanks. 


Symbols 

In  MAD/I  two  concepts  have  been  separated:  the  form  of  a 
symbol  (how  it  is  composed  of  characters),  and  the  usage  of  the 
symbol  (how  it  functions  as  a  language  element) .  Examples  of 
symbol  forms  (called  "lexical  classes")  are: 


Alphanumeric  symbol  (e.g.,  F  A32  BETA  ) 

Primed  symbol  (e.g.,  'IF'  'TRUE'  'END'  ) 

Quoted  symbol  (e.g.,  "CHAR-STRING"  »001A4"X  ) 

Unsigned-integer  symbol  (e.g.,  4  003  5140  ) 

Special  symbol  (e.g.,  ♦  :  ,  (  )  -»=  ) 

The  symbols  may  be  used  in  any  of  several  ways;  example  usage 
classes  are: 


Identifier.  Usually  formed  as  an  alphanumeric  symbol,  but 
the  primed  symbol  'DEFAULT'  is  also  a  pre-defined 
identifier. 

Keyword.  The  pre-defined  keywords  are  primed  symbols.  An 
alphanumeric  symbol  (such  as  IF  or  BEGIN)  could  be 
defined  as  a  keyword,  but  then  it  could  not  also  be 
used  as  an  identifier. 
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Constant.  The  symbols  307,  'TRUE',  18.4E3,  and  "P=**"  are 
all  constant  symbols. 

Operator.  The  symbols  +  ,  =  ,  .ABS.  ,  .OR.  ,  :=  L  and  ** 
are  pre-defined  operators. 


Attributes  and  Declarations 

Language  items  such  as  identifiers,  constants,  and 
expressions  have  attributes .  Example  attributes  are: 

Mode  (e.g.,  'INTEGER',  'CHARACTER',  'VARYING  ARRAY', 
•  POINTER') 

Storage  layout  (e.g..  Length,  Alignment,  Dimension) 

Storage  class  (e.g..  Static,  Automatic,  Based) 

Attributes  of  an  item  may  be  explicitly  declared  either  in  a 
declaration  statement  or  by  attaching  a  declaration  to  any 
occurrence  of  the  item  in  the  program.  Declarations  may  appear 
anywhere  in  the  program,  and  in  particular  need  not  precede  the 
first  occurrence  of  the  item.  There  are  also  default  attributes 
for  items  which  are  not  completely  declared.  The  defaults  to  be 
applied  are  themselves  declarable. 

Example  declarations: 

'INTEGER'  I,  K,  N 

•DECLARE'  (ALPHA,  BETA)  'FIXED  ARRAY'  (50,50)  'BOOLEAN* 

Id)  (' INTEGER')  :=  No)  (' INTEGER  • )  +  3 
'DECLARE'  'DEFAULT'  'FLOATING  LONG' 


Expressions 

A  MAD/I  expression  is  basically  similar  to  an  expression  in 
FORTRAN,  MAD,  ALGOL,  or  PL/I,  but  is  slightly  more  general.  The 
four  expressions 

ALPHA  ,  A  ♦  B  ,  (X-Y) *Z  ,  -XYZ 

all  have  the  usual  meanings  in  the  pre-defined  language. 
However,  the  conventional  concepts  of  "subscripted  variable"  and 
"assignment  statement"  are  handled  as  expressions  in  MAD/I. 

For  example,  if  ALPHA  is  an  array  name,  then  ALPHA  is 
considered  a  variable,  but  ALPHA  (I)  is  not  a  variable;  both 
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ALPHA  and  ALPHA (I)  ,  however,  are  expressions  (called 
"designators").  In  "ALPHA  (I)"  the  subscription  operation  is 
implied  by  the  context  of  the  array  name  expression  followed  by 
the  left-parenthesis  symbol;  it  is  treated  as  a  convenient  way 
of  writing  "ALPHA  .TAG.  I",  where  .TAG.  is  the  operator 
denoting  subscription. 

An  assignment  such  as  "AA  :=  BB"  is  also  an  expression;  its 
result  is  the  same  as  AA  ,  except  that  the  value  of  AA  has  been 
set  to  the  value  of  BB.  We  could  compute  the  maximum  value  of 
AA  and  BB  with  the  statement: 

'IF8  (MAX  :=  AA)  <  BB  ,  MAX  :=  BB 


The  concepts  of  "operator"  and  "operation"  have  been 
separated.  For  example,  the  special  symbol  ♦  is  pre-defined 
as  an  infix  operator  which,  in  the  contexts  of  arithmetic 
operands,  denotes  "addition".  Addition  is  a  binary  (i.e. , 
dyadic)  operation.  The  ♦  operator  could,  however,  be  defined 
to  mean  something  other  than  addition  for  other  contexts. 


Statements 

MAD/I  statements  are  roughly  similar  to  those  of  ALGOL  60 
and  PL/I.  There  are  five  general  statement  classes:  simple 
statements,  compound  statements,  prefix  statements,  list 
statements,  and  declaration  statements. 

(1)  Simple  statements.  A  simple  statement  is  either  an 

expression  or  a  "statement  keyword"  (reserved  word) 

followed  by  a  fixed  number  of  expressions. 

A  :=  BCD 

•GO  TO'  LABEL 

•ALLOCATE'  STROCT,  K*10 

(2)  Compound  statements.  A  compound  statement  consists  of  a 

sequence  of  statements,  separated  by  semicolons,  and 
bracketed  by  a  statement  keyword  and  an  "end  keyword". 

•BEGIN'  B  :=  A;  C  :=  D  ' END' 

(3)  Prefix  statements.  A  prefix  statement  consists  of  a 

"prefix"  followed  by  a  "scope".  The  prefix  consists  of  a 
statement  keyword  followed  by  a  fixed  number  of 

expressions.  The  scope  may  consist  either  of  one  statement 
(separated  from  the  prefix  by  a  comma) ,  or  of  a  sequence  of 
statements  separated  by  semicolons  and  terminated  by  an  end 
keyword  (separated  from  the  prefix  by  a  semicolon) . 
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•IF'  A  >  0  ,  B  :=  A 

•IF*  A  >  0  ;  B  :=  A  ;  C  :=  D  ' ENDIF' 

•FOR'  I  :  =  1 , 1 f I>N  #  G (I)  :=  0 

•FOR'  I:=1,1,I>N  ; 

G  ( I)  :=  0  ;  H  (I)  :=  1  'ENDFOR' 

(4)  List  statements.  A  list  statement  consists  of  a  prefix 

followed  by  a  varying  number  of  expressions. 

'READ'  ('UNIT*  0)  ,  A,  B,  C 

•PRESET'  D  : =  1 #  F  :=  3.5,  CH  :=  "**" 

(5)  Declaration  statements.  These  have  two  forms:  the  'DECLARE' 

statement  and  the  "inverted"  declaration  statements,  as 
exemplified  below. 

•DECLARE'  AA  'INTEGER',  BB  'BOOLEAN', 

CC  'COMPONENT  STRUCTURE*  ('BIT'  (8),  'BIT'  (24)) 

'  DCL '  (DD,  EE,  FF)  'FLOATING',  GG  'ENTRY  NAME' 

•INTEGER*  II,  JJ,  XX 

•FIXED  ARRAY*  Al(5,10),  A2(4,4,4) 


Statements  to  be  successively  executed  are  written  in 
sequence,  separated  by  semicolons.  Empty  statements  are 
permitted.  A  statement  may  be  labeled  with  an  identifier, 
separated  from  the  statement  by  a  colon. 

I  :=  0; 

LBL:  'IF'  Z(I)  --=  0,  'RETURN'  I  ; 

I  :  =  I  ♦  1  ;  'GO  TO'  LBL 


Embedded  stat ements 

Any  statement  (or  sequence  of  statements)  can  be  made  to 
produce  a  result,  and  can  therefore  be  used  as  an  expression 
(i.e.,  "embedded"  in  an  expression).  The  'VALUE'  prefix 
statement  is  provided  for  this  purpose.  The  prefix  designates  a 
variable  whose  value  at  the  end  of  the  statement  is  used  as  the 
result  of  the  statement.  The  'VALUE'  statement  is  enclosed  in 
parentheses  and  used  as  an  expression. 

SUMSQUARE  :=  ('VALUE*  S  ;  S  :=  0  ;  'FOR'  I:=1,1,I>N, 

S  :=  S  ♦  (X(I)  -  Y  (I)  )  **2  'ENDVALUE') 
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Program  structure 

MAD/I  provides  a  "block  structure"  much  like  ALGOL  60  and 
PL/I.  Each  block  is  either  a  "compound-statement  block"  or  a 
"procedure  block".  A  compound-statement  block  has  the  form 

•BLOCK'  •  •  •  'END* 

where  the  •  •  •  represents  an  arbitrary  sequence  of  statements. 
Procedure  blocks  have  several  variations;  they  typically  look 
either  like 

•PROCEDURE'  NAME.  (PARI, PAR2)  ; 

•  •  • 

•END  PROCEDURE' 
or  like 

'PROCEDURE'  FN.  (X,Y)  ;=  expression 

Both  kinds  or  blocks  are  statements,  and  can  be  used  wherever  a 
statement  is  valid.  Blocks,  therefore,  may  be  nested.  Block 
structure  serves  to  delimit  the  scopes  of  declarations  and 
names.  Each  block  may  either  have  its  own  default  attributes, 
or  may  inherit  the  defaults  of  the  enclosing  block. 

A  MAC/I  program  is  a  block  not  contained  in  any  other 
block.  Each  source  program  is  separately  compiled  into  its 
oblect  program. 


Part  I  —  Description  of  the  MAD/I  Language 


16 


Section  1:  Introduction  to  the  Language 


1 a 2 _ Introductory  Examples 

Let  us  suppose  that  X  and  X  are  two  arbitrary  vectors  in  a 
vector  space  of  3  dimensions,  and  that  we  want  a  procedure  which 
computes  the  Euclidean  "distance11  function  between  X  and  Y.  The 
following  program  does  this;  the  line  numbers  at  the  left  margin 
are  qo%  part  of  the  program. 


01 

02 

03 

04 

C5 

06 

07 

08 


•PROCEDURE*  DIST.  (X,Y); 

'  DCL'  (X ,  Y)  •  FIXED  ARRAY*  (3)  ; 
•INTEGER*  I; 

DIST:  SUM  :=  0.  ; 

•FOR*  I  :=  1,  1,  I  >  3  , 

SUM  :=  SUM  ♦  (  X(I)  -  Y  (I) 
•RETURN*  SQRT.  (SUM) 

•END  PROCEDURE* 


**  2  ; 


The  program  is  a  procedure  block;  the  procedure  statement 
begins  with  the  statement  keyword  'PROCEDURE'  and  ends  with  the 
end  keyword  'END  PROCEDURE*  in  line  08. 


Line  01  consists  of  the  procedure  prefix  followed  by  a 
semicolon.  The  procedure  prefix  specifies  that  identifier  DIST 
names  an  entry  point  of  the  procedure,  and  that  identifiers  X 
and  Y  are  the  formal  parameters  associated  with  that  entry 
point.  Since  the  prefix  is  followed  by  a  semicolon,  the  rest  of 
the  'PROCEDURE'  statement  will  be  a  sequence  of  statements 
terminated  by  the  end  keyword  'END  PROCEDURE'. 


Line  02  consists  of  a  'DECLARE'  statement  followed  by  a 
semicolon.  ('DECLARE'  is  abbreviated  as  'DCL'  —  many  MAD/I 
keywords  have  abbreviations.)  The  statement  specifies  that  X 
and  Y  are  variables  of  'FIXED  ARRAY'  mode,  and  that  their  values 
are  arrays  of  3  components,  numbered  from  1  to  3.  'FIXED  ARRAY' 
means  that  the  arrays  have  fixed  dimensions;  they  cannot  be  re¬ 
dimensioned  at  run  time.  Since  the  mode  of  the  array  components 
is  not  explicitly  declared,  it  is  assumed  to  be  the  default 
mode;  since  the  block  contains  no  declaration  for  default  mode, 
the  pre-defined  default  of  'FLOATING  SHORT'  is  used.  Thus,  the 
values  of  X  and  Y  are  arrays  of  3  floating-point  numbers.  The 
semicolon  at  the  end  of  line  02  is  not  part  of  the  'DECLARE' 
statement,  but  separates  it  from  the  next  statement. 

Line  03  contains  a  declaration  statement  which  specifies 
that  I  is  a  variable  of  'INTEGER'  mode.  This  is  called  an 
"inverted"  declaration  statement,  since  it  begins  with  an 
attribute  keyword  instead  of  'DECLARE'. 

Line  04  contains  an  "expression  statement"  labeled  by  the 
identifier  DIST;  this  is  the  entry  point  of  the  procedure.  The 
statement  is  an  assignment  expression,  which  sets  the  value  of 
variable  SUM  to  the  floating-point  value  0.  SUM  is  not 
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explicitly  declared,  so  it  has  the  default  mode  • FLOATING 
SHORT'. 

Line  05  ['FOR'  I:=1,  1,I>3,]  has  the  beginning  of  a 
'FOR'  statement,  which  specifies  an  iteration.  The  iteration 
variable  is  I;  it  is  initialized  to  1,  and  is  incremented  by  1 
until  the  expression  I  >  3  is  true.  Since  the  'FOR'  statement 
prefix  is  followed  by  a  comma,  the  scope  of  the  iteration  will 
be  a  single  statement. 

Line  06  [SUM  :=  SUM  ♦  (  X(I)  -  Y  (I)  )  **  2  ;  ]  contains  an 
expression  statement,  which  is  the  statement  repeatedly 
executed.  The  semicolon  separates  the  'FOR'  statement  and  the 
'RETURN'  statement.  The  assignment  expression  increments  the 
value  of  SUM  by  the  sguare  of  the  difference  of  the  Ith 
components  of  the  two  vectors. 

Line  07  ['RETURN'  SQRT.  (SUM)  ]  contains  a  'RETURN' 
statement.  It  evaluates  the  expression  SQRT. (SUM)  and  returns 
the  resulting  value  as  the  result  of  the  DIST  procedure.  The 
identifier  SQRT  is  implicitly  declared  to  be  'ENTRY  POINT'  mode 
by  its  appearance  as  a  procedure  name  in  the  procedure-call 
expression;  since  SQRT  is  not  a  label  in  this  program,  it  is 
implicitly  declared  'EXTERNAL'  as  well.  Also,  a  procedure  call 
on  SQRT  is  assumed  to  produce  a  result  of  default  mode.  This 
program  assumes  that  SQRT  is  an  entry  point  of  a  (library) 
subroutine  that  computes  the  sguare  root  of  a  'FLOATING  SHORT' 
value  and  returns  a  result  of  the  same  mode.  MAD/I  itself  does 
not  have  pre-defined  procedures  for  the  elementary  functions. 

Line  08  ['END  PROCEDURE']  contains  the  'END  PROCEDURE' 
keyword  which  ends  the  procedure  (and  the  program) .  We  could 
also  have  used  the  general-purpose  end  keyword  'END'  instead. 
Notice  that  no  semicolon  is  needed  between  the  'RETURN' 
statement  and  the  end  keyword.  Such  a  semicolon  would  do  no 
harm,  however;  it  would  merely  introduce  an  empty  statement 
between  the  semicolon  and  the  end  keyword. 
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As  a  second  example,  let  us  generalize  the  previous  problem 
so  that  X  and  Y  are  vectors  in  a  space  of  N  dimensions,  and  that 
N  is  supplied  as  an  actual  parameter  (argument)  to  the 
procedure.  We  could  then  re-write  DIST  as  follows: 

01  'PROC'  DIST.  (N,  X,  Y)  ; 

02  '  DCL '  (I ,  N)  'I*,  (X ,  Y)  'FA'  (#)  »FS'; 

03  SUM  :=  0; 

04  ‘FOR*  I:=1, 1,I5N, 

05  SUM  :=  SUM  ♦  (X  (I)  -Y  (I) )  **2; 

06  'RETURN*  SUM  **  0.5  'END* 


Line  01  is  the  same  as  before,  except  that  'PROCEDURE'  is 
abbreviated  as  'PROC1,  and  N  is  added  as  a  formal  parameter. 

Line  02  contains  a  single  'DECLARE'  statement,  which  uses 
abbreviations.  It  declares  that  I  and  N  have  'INTEGER  LONG' 
mode,  and  that  X  and  Y  have  'FIXED  ARRAY'  mode  with  'FLOATING 
SHORT'  components.  The  special  symbol  #  specifies  that  the 
array  dimensions  are  to  be  obtained  at  run  time  from  the  actual 
parameters  supplied  for  X  and  Y. 

Line  03  is  similar  to  line  04  before,  except  that  the  label 
DIST  has  been  omitted,  and  the  constant  0  has  no  decimal  point. 
Since  DIST  is  declared  in  the  procedure  prefix  as  an  entry 
point,  but  DIST  does  not  appear  as  a  label,  the  entry  point  is 
considered  to  be  at  the  first  executable  statement,  which  is 
"SUM  :=  0".  The  constant  0  has  'INTEGER  LONG'  mode,  and  will  be 
converted  to  'FLOATING  SHORT'  mode  for  assignment  to  SUM.  The 
MAD/I  compiler  reserves  the  "right"  to  perform  such  a  conversion 
at  compile  time. 

Line  04  [  'FOR'  I:=1,1,I>N,  ]  is  the  same  as  before,  except 
that  the  iteration  proceeds  until  the  value  of  I  exceeds  the 
value  of  parameter  N.  If  N  is  less  than  1,  then  the  iteration 
scope  is  never  executed. 

Line  05  [  SUM  :=  SUM*  (X  (I) -Y  (I)  )  **2;  ]  is  the  same  as 
before. 

Line  06  [  'RETURN'  SUM  **  0.5  'END'  ]  combines  the 
functions  of  lines  07  and  08  before.  Instead  of  explicitly 
calling  a  procedure  SQRT,  the  MAD/I  exponentiation  operation  is 
used.  The  'END'  keyword  ends  the  program. 
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As  a  third  exaaple,  ve  will  re-write  the  generalized  DIST 
procedure  to  use  an  "eabedded  statement": 

01  • PBOC •  DIST.  (N,X,Y)  ; 

02  •  DCL'  (I , N)  *1*,  (X,  Y)  'FA'  (*)  'FS' ; 

03  DIST:  •  RETURN'  ('VALUE*  SUH  :=  0.  ,  'FOB'  I:=1,1,I>N, 

04  SUH  :=  SUH+  (X  (I)  -Y  (I) )  **2)  **0.  5  'END' 


Lines  01  and  02  are  as  before.  Lines  03  and  04  contain  a 
labeled  'RETURN'  statement;  the  expression  for  the  return  value 
contains  a  parenthesized  'VALUE'  statement.  The  'VALUE' 
stateaent  prefix  specifies  the  variable  SUH  and  sets  it  to  zero; 
the  'VALUE'  stateaent  scope  is  the  'FOR'  statement,  which  is  the 
saae  as  before;  the  result  of  the  stateaent  is  the  value  of  SUH 
after  the  scope  is  executed.  The  'VALUE'  statement  is  enclosed 
in  parentheses  and  its  value  raised  to  the  0.5  power.  The  'END' 
keyword  ends  the  program  as  before. 
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^j.O__Irittodu£tioii 

A  source  program  in  the  HAD/1  Language  is  a  sequence  of 
characters  —  letters,  digits,  blanks,  and  special  characters. 
A  language  processor  must  qroup  successive  characters  together 
into  symbols,  comments,  and  spaces.  The  resulting  lexical 
sequence  of  symbols  constitutes  the  formal  HAD/I  program,  and  is 
the  only  portion  of  the  source  program  text  that  is  of  interest 
to  a  compiler  or  interpreter.  The  comments,  when  included,  are 
solely  for  the  convenience  of  human  readers.  Spaces  serve  to 
separate  symbols  and  comments;  they  have  no  other  significance. 

Because  the  HAD/I  Facility  is  intended  to  be  flexible,  and 
because  the  HAD/I  Language  design  must  allow  for  "extension"  by 
th user,  the  rules  for  forming  and  recognizing  symbols  have 
been  divorced  from  the  uses  (interpretations)  of  the  symbols. 
Fct  ex  raple,  in  a  typical  "fixed"  language,  an  identifier  must 
be  formed  as  an  alphanumeric  symbol;  in  HAD/I,  however,  the  user 
can  cause  almost  an y  symbol  (e.g.,  a  string  of  characters 
enclosed  in  quotation  marks)  to  be  treated  as  an  identifier. 
There  are  also  default  interpretations  for  some  symbol  forms; 
for  example,  an  alphanumeric  symbol  not  otherwise  declared  is 
treated  as  an  identifier. 


2 J.  1 F OE m a t i 2 n_2l_5 YI boi s _ (Lexical  Classes) 

The  rules  for  grouping  characters  together  into  symbols  are 
embedded  in  the  lexical  scanner  of  the  MAD/I  Facility;  hence, 
they  are  fixed.  The  lexical  scanner  recognizes  ten  general 
categories  (lexical  classes)  of  symbols,  which  are  listed  here 
and  defined  in  detail  below: 

i 

1.  Alphanumeric  symbols 

2.  Primed  symbols 

3.  Dotted  symbols 

4.  Quoted  symbols 

5.  Unsigned-integer  symbols 

6.  Unsigned-floating-point  symbols 

7.  Special  symbols 

8.  Percent  symbols 

9.  At-sign  symbols 

10.  Pound  syabols 


I 
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An  alphanuaeric  syabol  is  a  sequence  of  adjacent  letters  or 
digits,  the  first  of  which  aust  be  a  letter.,  The  "letters"  are 
the  upper-case  characters  A,B,...,Z,  and  the  lower-case 
characters  a,b,...,z.  (It  should  be  understood  that  these  are 
52  different  characters.)  The  "digits"  are  the  characters 
0,1, 2,..., 9.  An  alphanuaeric  syabol  aust  have  at  least  one 
character,  but  no  aore  than  256.  Adjacent  alphanuaeric  syabols 
aust  be  separated  by  spaces  or  conaents. 

Usual  usage:  Identifiers 
Default  interpretation:  Identifier 

Exaaples:  NADI 

X 

B90A2 

Longer SyabolT ha ndost 


A  priaed  syabol  is  a  sequence  of  1  to  254  letters,  digits, 
or  blanks,  enclosed  in  "priaes"  (apostrophes,  single-quote 
aarks) .  All  blanks  between  the  priaes  are  ignored,  and  are  not 
considered  as  spaces. 

Usual  usage:  Keywords,  Constants 

Exaaples:  'IF' 

•GO  TO*  ,  saae  as  *  GOTO* 

• INTEGE8 ' 

•DEFAULT* 

•TRUE* 

•NULL  PT* 


A  dotted  syabol  is  a  sequence  of  1  to  254  letters  or 
digits,  the  first  two  of  which  aust  be  letters,  enclosed  in  dots 
(periods) .  No  blanks  are  peraitted  within  a  dotted  synbol. 

Usual  usage:  Operators 

Exaaples:  .A. 

.IS. 

. ASTYPEOF. 

.qq3. 
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A  quoted  symbol  is  a  sequence  of  zero  or  more  characters 
enclosed  in  quotation  marks  (double-quote  mapks) .  A  quoted 
symbol  can  also  include  a  suffix  character  (X,  P,  or  E) 
immediately  after  the  closing  quote  (see  below) .  Any 
characters,  including  blanks  and  special  characters,  can  be 
written  between  the  quotes;  however,  each  occqrrence  of  the 
quote  (")  character  must  be  represented  by  two  adjacent  guotes 
("").  If  a  quoted  symbol  is  followed  by  a  symbol  which  begins 
with  a  quote  or  letter,  the  two  symbols  must  be  separated  by  a 
space  (or  comment) .  The  four  forms  of  guoted  symbols  are 
described  below: 


2. 1 . 4. 1 _ Character  Symbols 

A  character  symbol  is  a  quoted  symbol  which  has  no  suffix. 
Usual  usage:  Character-string  constants 

Default  interpretation:  Constant  of  'CHARACTER*  mode;  see 
Sec.  3.8.3. 


Examples:  "A" 

"**  Error:  IHC999  3  51." 

""""  (contains  one  "  character) 


2jl  J xiiii _ li e* a  decimal _S ym bo  1  s 

A  hexadecimal  symbol  is  a  guoted  symbol  with  the  suffix 
character  X  .  The  characters  between  the  quotes  are  restricted 
to  the  "hexadecimal  digits":  0, 1 , . . . , 9, A ,B,C,D,E,F. 

Usual  usage:  constants 

Default  interpretation:  Constant  of  'INTEGER  LONG'  mode;  see 
Sec .  3.8.4. 


Examples: 


"A9E"X 
" BAD" X 

" 200 19  40000" X 
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2. 1.4. 3  Pointer-Constant  Symbols 

A  pointer-constant  symbol  is  a  quoted  symbol  with  the 
suffix  character  P  .  The  characters  between  the  quotes 
constitute  another  symbol  —  the  identifier  whose  storaqe 
assiqnment  will  be  "pointed  to". 

Usual  usaqe:  Pointer  constants 

Examples:  "ALPHA"? 

"SI N"P 


2. _1_.  4._4 _ Entry-Name-Constant  Symbols 

An  entry-name-constant  symbol  is  a  quoted  symbol  with  the 
suffix  character  E  .  The  characters  between  the  quotes 
constitute  another  symbol  —  the  identifier  (label)  of  the  entry 
point  to  be  "pointed  to"  by  the  entry-name  constant. 

Usual  usaqe:  Entry-name  constants 

Examples:  "LAB12"E 

"SIN"E 


2.1.5 _ Unsigned-Integer  Symbols 

An  unsiqned-inteqer  symbol  is  a  sequence  of  decimal  digits, 
and  is  considered  to  be  the  usual  decimal  representation  of  a 
non-negative  integer.  Leading  zeros  are  permitted,  but  commas 
and  decimal  points  are  not. 

Usual  usage:  Integer  constants 

Default  interpretation:  Constant  of  'INTEGER  LONG'  mode;  see 
Sec.  3.8.1. 

Examples:  38 

0 

00190 


2ili6 _ Unsigned-Floating-Point  Symbols 

An  unsigned-floating-point  symbol  is  a  sequence  of  decimal 
digits,  with  either  a  single  decimal  point,  or  an  "exponent 
part",  or  both.  If  the  decimal  point  is  written,  it  may  be 
placed  anywhere  in  the  sequence  of  digits,  and  is  interpreted 
according  to  the  usual  rules  of  decimal  notation.  The  decimal 
sequence  may  be  suffixed  by  an  "exponent  part",  which  represents 
a  multiplier  value  applied  to  the  decimal  number.  The  exponent 
part  consists  of  the  character  E  followed  by  a  decimal 
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integer,  and  represents  a  multiplier  equal  to  10  raised  to  the 
power  of  the  decimal  integer.  The  decimal  integer  may  be 
signed. 

Usual  usage:  Floating-Point  constants 

Default  interpretation:  Constant  of  'FLOATING  SHORT*  mode;  see 
Sec.  3.8.2. 

Examples:  1.57 

0. 

.  1 

0.005 
1  0E  3 

"  2.  2E-07 
. 04E+48 


2j.  1^7 _ Special  Symbols 

The  following  special  symbols  are  pre-defined  in  HAD/I; 
they  all  have  pre-defined  interpretations  as  punctuation  marks 
and  operators: 

(  left-parenthesis 

)  right-parenthesis 

,  comma 

;  semicolon 

:  colon 

...  ellipsis 

#  pound-sign,  number-sign 

♦  plus 
minus 

*  asterisk 

/  slash 

a)  at-sign 

.  dot,  period 

$  dollar-sign 

not-sign 
8  ampersand 

|  vertical  bar 

=  eqial-sign,  "equals” 

<  less  than 

>  greater  than 

**  double-asterisk,  power 

:=  colon-equals,  assignment,  "gets” 
not  equal 

<=  less  than  or  equal 

>=  greater  than  or  equal 

||  double-bar,  concatenate 
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2,1.8 _ Percent  Symbols 

A  percent  symbol  is  a  percent-sign  immediately  followed  by 
a  non-empty  sequence  of  letters  and  digits.  Percent  symbols  are 
used  extensively  in  MAD/I  as  internal  compiler  symbols. 
Compiler-generated  identifiers  (such  as  the  names  of  temporary 
results)  are  percent  symbols.  The  programmer  should  avoid 
writing  percent  symbols  unless  he  is  deliberately  using  the  low- 
level  MAD/I  Facility. 

Examples:  %TMP0007 

%  A 

%MACRO 


_ At-sign  Symbols 

An  at-sign  symbol  is  an  at-sign  followed  by  a  non-empty 
sequence  of  letters  and  digits.  At-sign  symbols,  like  percent 
symbols,  ate  used  in  MAD/I  for  internal  compiler  symbols.  They 
are  also  used  as  component  names  (see  Sec.  2.2.5).  The 
programmer  should  avoid  writing  at-sign  symbols  unless  he  is 
writing  a  component  name  or  deliberately  using  the  low-level 
Facility.  (Note:  the  single  character  a  is  a  special  symbol, 
and  is  not  classed  as  an  at-sign  symbol.) 

Examples:  aCLS 

a  EX2 
aMODE 


2. 1.10  Pound _ Symbol s 

A  pound  symbol  is  a  pound-sign  followed  by  a  non-empty 

sequence  of  letters  and  digits.  Pound  symbols  are  intended  for 

use  in  the  Compile-Time  Facility,  and  are  reserved  as  a  class 

for  that  purpose.  (Note:  the  single  character  #  is  a  special 

symbol,  and  is  not  classed  as  a  pound  symbol.) 

Examples:  #C0UNT 

#L1 2 
#  ROWS 
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2.  2 _ Usage  of  Symbols _ [Usage  Classes) 

Except  for  internal  compiler  symbols  and  special  symbols 
which  are  punctuation  marks,  the  MAD/I  symbols  can  be 
categorized  into  five  general  usage  classes,  which  are  listed 
here  and  discussed  in  detail  below: 

1.  Identifiers 

2.  Constants 

3.  Keywords 

4.  Operators 

5.  Component  names 


2_.2_.2_ _ Identifiers 

An  identifier  is  a  symbol  used  as  a  name  of  some  data 
object  such  as  an  integer  value,  a  pointer  value,  or  a  portion 
of  a  program.  There  are  two  kinds  of  identifiers:  variables  and 
labels. 

There  is  also  a  special  pre-defined  identifier,  the  primed 
symbol  'DEFAULT'.  This  appears  only  in  declaration  statements, 
and  is  used  as  a  controllable  "prototype"  for  the  assignment  of 
default  attributes  (see  Section  3) . 


2 . 2 . 1 .1 _ Variables 

A  variable  is  an  identifier  used  to  name  a  data  object  (its 
"value") .  The  essence  of  a  variable  is  that  the  particular  data 
object  named  is  not  fixed,  but  may  vary  when  the  object  program 
is  executed  ("run  time") .  For  example,  if  the  symbol  K  is  a 
variable,  it  might  (at  run  time)  name  first  an  integer  value  15, 
and  later  an  integer  value  -77,  and  still  later  an  integer  value 
0  .  A  variable  can  also  name  a  structured  set  of  values,  such 
as  an  array  of  floating-point  values. 

We  remind  the  reader  that  computing  machines  do  not 
manipulate  abstract  objects,  such  as  numbers,  directly.  Rather, 
machines  must  manipulate  concrete  representations  of  such 
objects.  Thus,  when  we  say  that  the  variable  K  names  the 
integer  value  15,  we  always  mean  that  K  names  a  finite 
representation  of  the  integer  15,  and  that  this  representation 
is  the  value  of  K.  With  this  distinction  understood,  we  may  say 
loosely  that  "K  has  the  value  15",  and  hope  there  will  be  no 
con  fusion . 

The  computational  properties  of  each  variable  are 
represented  by  the  attributes  assigned  to  the  variable.  An 
example  attribute  in  MAD/I  is  m5de ,  which  characterizes  both  the 
range  of  values  the  variable  can  name,  and  the  form  of  a  typical 
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value.  For  example,  a  variable  of  'INTEGER  LONG'  mode  can  only 
name  values  vhich  are  integers  encoded  (in  System/360)  as 
fullword  (32-bit)  fixed-point  binary  numbers.  Another  example 
mode  is  'FIXED  ARRAY',  which  specifies  that  the  variable  names 
an  array  of  values,  that  the  bounds  on  each  dimension  of  the 
array  are  fixed,  that  all  the  values  in  the  array  are  of  the 
same  mode,  and  that  the  values  are  located  at  regularly-spaced 
intervals  in  computer  storage.  In  this  case  an  individual  value 
is  designated  by  writing  subscripts  after  the  variable.  For 
example,  if  AR  is  a  variable  of  'FIXED  ARRAY'  mode,  then  a  value 
in  the  array  may  be  designated  by  an  expression  such  as  AR(1) 
Note;  AR  (1)  is  not  a  variable,  but  is  an  expression  called  a 
designator  (see  Section  4)  . 


2 . 2 . 1 . 2 _ Labels 

A  label  is  an  identifier  that  names  a  fixed  object.  Unlike 
a  variable,  the  value  of  a  label  cannot  change  at  run  time; 
thus,  a  label  is  a  kind  of  constant.  Labels  are  used  only  to 
name  statements  in  programs;  each  label  is  written  in  front  of 
the  statement  it  names,  separated  from  the  statement  by  a  colon 
(;) .  In  the  pre-defined  language,  there  are  only  two  modes  a 
label  can  have:  'TRANSFER  POINT*  mode  and  'ENTRY  POINT'  mode 
(see  Section  3)  . 
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_ Constants 

A  Constant  is  a  symbol  (or  ^-expression  —  see  below)  which 
denotes  a  fixed  value.  The  value  of  each  constant  is  computed 
in  advance  of  run  time,  and  may  or  may  not  be  explicitly 
represented  in  the  object  module.  A  constant  may  have  either  of 
two  forms: 

(1)  A  single  "constant  symbol". 

Examples:  419 

23.7E-3 

•TRUE1 

(2)  A  constant  followed  by  the  iz)  symbol  followed  by 

a  parenthesized  declaration;  i.e.,  an  3)- 

expression  whose  left  operand  is  a  constant* 

Examples:  4193)  (•  INTEGER  SHORT') 

"4E000000"Xfi ('FLOATING  SHORT') 

"ABC"3>  ('CHARACTER'  (8)  )  a  ('ALIGN*  (8)) 

The  pre-defined  constant  symbols  include: 


Unsigned-integer  symbols 

(bee. 

2.1.5) 

Unsigned-floating-point  symbols 

(Sec. 

2*  1.6) 

Character  symbols 

(Sec. 

2.1.4. 

D 

Hexadecimal  symbols 

(Sec. 

2.1.4. 

2) 

Pointer-constant  symbols 

(Sec. 

2. 1.  4. 

3) 

Entry-name-constant  symbols 

(Sec. 

2.  1.  4. 

4) 

The  Boolean  constants  'TRUE'  and  'FALSE' 

The  character  constant  'NULL  C' 

The  varying-character  constant  'NULL  VC' 

The  pointer  constant  'NULL  PT' 

The  entry-name  constant  'NULL  EN' 

The  reader  will  note  that  signed  constants  have  not  been 
mentioned.  The  application  of  a  +  or  -  prefix  symbol  to  a 
constant  results  in  an  expression  which  is  not  called  a 
"constant",  although  it  is  constant- valued. 
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2a2a3 _ Keywords 

A  keyword  is  a  symbol  which  has  been  assigned  a  particular 
use  in  a  MAE/I  statement  form.  All  keywords,  both  pre-defined 
and  user-defined,  are  reserved  symbols.  The  pre-defined 
keywords  are  all  primed  symbols,  and  can  be  roughly  divided  into 
four  informal  categories:  statement  keywords,  end  keywords, 
phrase  keywords,  and  attribute  keywords. 

Statement  keywords  are  those  which  begin  and  identify  a 
statement  form.  Each  occurrence  of  a  statement  keyword  is 
considered  to  begin  a  statement  of  the  form  identified  by  the 
keyword  (see  Section  5)  . 

Examples:  'PROCEDURE' 

•IF* 

•  FOR' 

•GO  TO* 

End  keywords  are  those  which  end  statements.  An  end 
keyword  is  part  of  the  statement  it  ends,  and  is  the  last  symbol 
of  the  statement  (see  Section  5) . 

Examples:  'END' 

'END  PROCEDURE' 

•ENDIF* 

Phrase  keywords  are  those  which  separate  expressions,  or 
identify  optional  expressions,  within  a  larger  statement 
context.  Some  phrase  keywords  are  used  like  commas  --  to 
separate  expressions.  Others  are  prefix  keywords  which  combine 
with  an  expression  to  form  a  larger  expression  (see  Section  5)  . 

Examples:  'WITH' 

•TO' 

•END  OF  FILE' 

•SAVE  CODE' 

Attribute  keywords  are  those  which  represent  attributes, 
such  as  mode  and  storage  class,  and  are  used  to  declare  the 
attributes  of  identifiers  and  expressions.  Attribute  keywords 
normally  appear  as  suffix  or  infix  keywords  within  declarations, 
but  they  can  also  function  as  statement  keywords  in  the 
"inverted"  declaration  form  (see  Sections  3  and  5.9). 

Examples:  'FLOATING  LONG' 

•ENTRY  POINT' 

•NOT  NEW' 

•  EXTERNAL' 


Part  I  —  Description  of  the  HAD/I  Language 


30 


Section  2:  symbols.  Comments,  and  Spaces 


2,2,4 _ Operators 

An  operator  is  a  symbol  which  denotes  an  operation  on  data 
objects.  The  same  operator  may  denote  a  number  of  different 
operations;  the  appropriate  operation  for  each  occurrence  of  the 
operator  is  determined  by  the  context  of  that  occurrence. 

Each  occurrence  of  an  operator  has  one  or  two  adjoining 
expressions  which  denote  the  operands  (data  objects)  of  that 
occurrence.  Each  operator  is  in  exactly  one  of  four  syntactic 
categories: 

A  prefix  operator  is  written  before  its  operand 
expression . 

A  postfix  operator  is  written  after  its  operand 
expression 

Al  infix-left  operator  is  written  between  its  operand 
expressions;  infix-left  operators  of  egual 
precedence  associate  left-to-right  (see  Section 
4)  . 

An  infix-right  operator  is  written  between  its  operand 
expressions;  infix-right  operators  of  egual 
precedence  associate  right-to-left. 

Note;  In  order  to  preserve  both  the  above  distinction  and 
traditional  notation,  two  pre-defined  symbols  get 
special  treatment:  Whenever  the  minus  (-)  symbol 
appears  in  the  context  of  a  prefix  operator,  it  is 
transformed  to  the  negation  (.NEG.)  operator, 
whenever  the  plus  (♦)  symbol  appears  in  the  context  of 
a  prefix  operator,  it  is  dropped  and  ignored.  Thus, 
the  plus  and  minus  signs  retain  their  usual  dual 
roles. 


All  pre-defined  operators  are  either  special  symbols  or 
dotted  symbols.  They  and  their  associated  pre-defined 
operations  are  discussed  in  Section  4. 


Examples: 


+ 


.  ABS. 
.  REN. 


(infix- left) 
(prefix) 
(infix-right) 
(prefix) 
(infix- left) 
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A  component  name  is  a  symbol  used  to  name  (or  label)  a 
component  of  a  structured  data  object.  All  component  names  are 
established  at  compile  time,  through  their  use  in  declarations 
of  structured  variables. 

For  example,  the  declaration  statement 

•DCL'  CNPLXN  ' CS'  (3REAL  'FS',  91  HAG  'PS') 

declares  that  CNPLXN  is  a  variable  of  • COMPONENT  STRUCTURE'  mods 
(see  Sec.  3. 1.2. 2)  with  two  components;  each  component  has 
'FLOATING  SHORT'  mode.  Also,  the  symbols  9REAL  and  9IHAG  are 
declared  to  be  component  names,  which  name  (for  the  variable 
CNPLXN)  the  first  and  second  components  respectively.  The  first 
component  of  CNPLXN  can  then  be  designated  by  the  expression 
CNPLXN  $  9REAL  ,  and  the  second  component  by  CNPLXN  $  9IHAG  . 

The  same  component  name  can  be  used  for  different 
structured  variables,  and  can  name  different  components  of  those 
variables. 

The  compiler  currently  requires  that  all  component  names 
must  be  at-sign  symbols,  in  order  to  distinguish  them  from 
identifiers.  This  restriction  may  be  relaxed  in  the  future. 
Also,  the  compiler  presently  allows  component  names  which  are 
at-sign  symbols  to  be  written  like  ordinary  subscripts;  e.g. , 
CNPLXN (9REAL)  and  CNPLXN (9IHAG) . 
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2.3 _ Comments  and  Spaces 

Any  source  prograa  text  Bay  be  enclosed  in  "comment 
delimiters"  to  fora  a  coaaent.  Coaaent  delimiters  are  the 
character  pairs  <<  and  >>  .  Thus,  the  following  is  a  coaaent: 

«THIS  IS  A  COMMENT. » 

Once  a  left  comment  delimiter  (<<)  is  recognized,  all  characters 
after  it  are  considered  part  of  the  coaaent  until  the  first 
right  comment  delimiter  (>>)  occurs.  Coaaents  must  not  be 
nested.  Coaments  may  be  inserted  at  any  point  in  the  text  of 
the  prograa  except  within  symbols.  They  are  bypassed  in  the 
initial  scan  of  the  text,  and  they  have  no  effect  on  the  object 
prograa. 


are  sequences  of  one  or  more  adjacent  blank 
characters  which  are  not  embedded  within  a  symbol  or  coaaent. 
Spaces  are  significant  in  that  they  will  separate  symbols  which 
would  otherwise  "run  together".  Blank  characters  within  a 
primed  symbol,  a  quoted  syabol,  or  a  coaaent  are  legal  and  are 
not  considered  as  spaces;  blanks  cannot  be  embedded  in  any  other 
symbols. 
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Section  3:  Attributes 


3.0 _ Introduction  to  Attributes 

Attributes  are  simply  "significant  properties".  That  is , 
the  attributes  of  an  item  in  a  NAD/I  program  are  those 
properties  of  the  item  which  are  of  interest  to  the  language 
processor  (beyond  the  purely  syntactic  properties,  which  are  not 
considered  attributes)  .  Attributes  must  be  determined  by  the 
language  processor,  at  "compile  time",  in  order  to  produce  a 
correct  translation  of  the  program.  The  "items"  for  which 
attributes  are  defined  include  identifiers,  constants,  and 
expressions,  as  follows: 

Each  identifier  has  attributes  that  characterize  the  values 
that  it  names  and  the  scope  of  the  identifier  itself.  Every 
identifier  acquires  the  following  attributes: 

A  mode .  which  specifies  both  the  possible  values  of 
the  identifier  and  the  representation  form  of  a 
value.  The  mode  may  be  either  a  primitive  mode 
or  a  structured  mode.  A  primitive  mode  (such  as 
•BOOLEAN'  mode)  describes  a  relatively  simple 
data  object  and  requires  no  other  mode  for  its 
definition.  A  structured  mode  (such  as 

•COMPONENT  STRUCTURE*  mode)  describes  a 

"structured"  object  which  has  components  (or 
produces  results)  which  have  their  own  modes. 

A  scope,  which  is  that  portion  of  the  program  over 
which  the  identifier  is  uniquely  "defined";  i.e., 
that  portion  in  which  another  occurrence  of  the 
same  symbol  is  another  occurrence  of  the  same 
identifier. 

A  storage  class,  which  specifies  the  manner  in  which 
storage  is  associated  with  the  identifier. 

If  the  identifier  is  a  variable,  then  it  also  acquires  at  least 
two  "storage  layout"  attributes: 

A  length,  which  specifies  the  amount  of  storage 
(number  of  bytes)  required  for  a  value. 

An  alignment  (alignment  factor) ,  which  specifies  a 
constraint  on  the  position  (in  storage)  of  the 
storage  associated  with  the  identifier. 

Storage  layout  attributes  do  not  apply  to  labels. 
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If  the  identifier  has  a  structured  mode,  then  that  includes 
additional  attribute  information  to  describe  its  value;  for 
example,  a  fixed  array  has  ••dimension",  and  its  components  have 
a  mode. 

Each  constant  has  a  mode,  a  length,  an  alignment,  and  a 
storage  class  (which  is  always  'STATIC'  —  see  Sec.  3.4.1).  It 
also  has  a  value,  of  course,  but  this  is  not  considered  an 
"attribute" . 

Each  expression  has  a  mode,  which  is  the  mode  of  its 
result.  It  may  also  have  a  storage  class  and  storage  layout 
attributes. 

Most  of  the  attributes  are  represented  in  the  language  by 
attribute  keywords,  which  are  used  in  declarations  to  specify 
attributes  of  items.  Some  attribute  keywords  take  "suffixes", 
which  may  be  optional  or  required,  to  specify  additional 
attribute  information. 

Sections  3.1  to  3.4  below  describe  the  various  attributes 
themselves  in  detail.  Sections  3.5  to  3.9  describe  the  various 
ways  of  assigning  attributes  to  identifiers,  constants#  and 
expressions. 


I 

I 

m* 

b 

i 

l 

\ 

Y 

•» 

i 


i 

1 

J 

j 

w 


Part 


Description  of  the  MAD/I  Language 


Section  3:  Attributes 


35 


3^1 _ Mode  Attributes 

Every  identifier,  constant,  and  expression  acquires  a  mode 
attribute,  either  by  explicit  declaration  or  by  implicit 
declaration.  Each  mode  characterizes  a  set  of  possible  values, 
and  also  the  form  of  a  value  of  that  mode  in  computer  storage. 
In  general,  the  mode  of  an  item  strongly  affects  the  treatment 
of  that  item  by  the  operators  and  statements  of  the  language. 

Most  modes  also  carry  implied  values  for  the  length  and 
alignment  attributes,  so  that  these  often  need  not  be  explicitly 
declared.  For  examples:  'CHARACTER*  mode  has  an  implied 
alignment  of  1,  and  'FLOATING  LONG*  mode  has  implied  length  8 
and  implied  alignment  8. 

There  are  two  classes  of  modes  in  MAD/I  —  primitive  modes 
and  structured  modes: 

The  primitive  modes  characterize  relatively  simple  data 
objects,  and  are  "atomic"  in  the  sense  that  they  require  no 
other  modes  for  their  definition.  Most  of  the  primitive  modes 
(like  'INTEGER  SHORT'  mode)  are  intentionally  defined  as  direct 
counterparts  to  the  hardware  data  types  of  the  IBM  System/360. 

Note:  This  approach  allows  the  MAD/I  user  strong 
control  over  the  machine  code  produced  by  the 
compiler.  Thus,  it  enhances  the  usefulness  of  MAD/I 
for  writing  system  programs  for  the  IBM  360.  However, 
this  approach  also  has  the  disadvantage  that  it  tends 
to  make  programs  machine-dependent  and  thus  less 
transferable. 

Some  of  the  primitive  modes  are  called  "arithmetic"  modes.  This 
simply  means  that  they  characterize  arithmetic  values  —  i.e.  , 
representations  of  numbers  —  and  that  some  arithmetic 
operations  (such  as  addition)  have  been  pre-defined  for  them. 

The  structured  modes  characterize  relatively  complex 
objects  which  have  "components"  or  "results"  for  which  more  mode 
information  may  be  required.  For  example,  if  an  item  has  'FIXED 
ARRAY'  mode,  then  the  mode  of  the  components  of  the  array  must 
somehow  be  determined.  This  can  be  explicitly  declared  by  a 
declaration  statement  such  as 

'DECLARE'  A  'FIXED  ARRAY*  (7)  'POINTER'  'BOOLEAN' 

which  declares  that  the  value  of  variable  A  is  a  fixed  array  of 
7  components,  each  of  which  is  a  'POINTER'  mode  value  pointing 
to  an  object  of  'BOOLEAN'  mode.  'FIXED  ARRAY'  and  'POINTER'  are 
structured  modes,  while  'BOOLEAN'  is  a  primitive  mode. 


Part  I  —  Description  of  the  MAD/I  Language 


36 


Section  3:  Attributes 


Structured  inodes  are  also  very  useful  for  creating  new, 
complex,  user-defined  inodes.  This  will  be  discussed  more  fully 
in  Section  9. 


The  pre-defined  modes  are  listed 
detail  in  the  following  subsections: 


below,  and  defined  in 


modes: 

3.1.1 

*  INTEGER  SHORT*  mode 

3.1.1.  1 

•INTEGER  LONG*  mode 

3. 1.1. 2 

•FLOATING  SHORT*  mode 

3.1.  1.3 

•FLOATING  LONG*  mode 

3.1. 1.4 

•PACKED*  mode 

3. 1. 1.5 

•BIT'  mode 

3. 1.1. 6 

•BOOLEAN'  mode 

3.1. 1.7 

•CHARACTER'  mode 

3. 1.1.6 

•VARYING  CHARACTER*  mode 

3. 1.1.9 

•FILE  NAME*  mode 

3.1.1.10 

•TRANSFER  POINT*  mode 

3.  1. 1. 1 1 

d  modes: 

3^2 

Array  modes 

3. 1.2.1 

•FIXED  ARRAY'  mode 

3.1.2. 1.1 

•VARYING  ARRAY'  mode 

3.  1.2. 1.2 

•COMPONENT  STRUCTURE'  mode 

3. 1.2.2 

•ALTERNATE'  mode 

3. 1.2.3 

•POINTER*  mode 

3. 1.2.4 

•ENTRY  POINT'  mode 

3. 1.2. 5 

•ENTRY  NAME'  mode 

3. 1.2.6 
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_ Primitive  Modes 


ls.lsJi.1 _ 'INTEGER  SHORT1  mode 

•INTEGER  SHORT'  mode  (abbreviation  'IS')  is  an  arithmetic 
mode  with  integer  values  ranging  from  -32768  (-215)  to  +32767 
(215-1).  it  has  implied  length  2  and  implied  alignment  2. 


3.  1.  1.  2 _ 'INTEGER  LONG'  mode 

•INTEGER  LONG'  mode  (abbreviations  'IL',  'INTEGER',  'I')  is 
an  arithmetic  mode  with  integer  values  ranging  from  -2147483648 
(-231)  to  +2147483647  (231-1).  It  has  implied  length  4  and 
alignment  4. 


3. 1 . 1. 3 _ 1  FLOATING  SHORT'  mode 

•FLOATING  SHORT*  mode  (abbreviations  'FS',  'FLOATING',  • F' ) 
is  an  arithmetic  mode  with  signed  (♦  or  -)  values  whose 
magnitudes  range  from  about  5.4  x  10“7*  (1/16  x  16~*  +  )  to  about 
7  x  1 07S  ((1-16-*)  x  16* 3)  ,  and  with  a  maximum  precision  of  six 
hexadecimal  digits  (about  seven  decimal  digits) .  The  zero  value 
is  also  included.  This  mode  has  implied  length  4  and  alignment 
4. 


iUltlsJ _ 'FLOATING  LONG'  mode 

'FLOATING  LONG'  mode  (abbreviation  'FL')  is  an  arithmetic 
mode  with  essentially  the  same  range  of  values  as  'FLOATING 
SHORT'  mode,  but  with  a  maximum  precision  of  14  hexadecimal 
digits  (about  17  decimal  digits).  It  has  implied  length  8  and 
alignment  8. 


3. 1. 1. 5 _ 'PACKED'  mode 

•PACKED'  mode  is  an  arithmetic  mode  with  integral  values 
expressed  as  signed  decimal  integers.  The  attribute  keyword 
'PACKED'  takes  an  optional  suffix  of  the  form  (L)  ,  where  L 
specifies  the  length  attribute,  and  must  be  a  constant  from  1  to 
16.  If  the  suffix  is  omitted,  the  default  length  is  1.  The 
value  is  2xL-1  decimal  digits,  with  a  sign.  An  alignment  of  1 
is  implied. 
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3. 1.1. 6 _ JBITJ_mode 

A  • BIT '  mode  (no  abbreviation)  value  is  a  fixed-length 
string  of  bits,  which  can  also  be  treated  as  an  unsigned  binary 
integer.  The  attribute  keyword  'BIT'  takes  an  optional  suffix 
of  the  form  (L)  ,  where  L  is  an  integer  constant  from  1  to  32 
which  specifies  the  bit  length  of  the  string.  If  the  suffix  is 
omitted,  the  default  length  is  1. 

The  compiler  currently  requires  that  the  storage  assigned 
to  each  'BIT'  mode  item  lie  within  a  single  32-bit  word  (4  bytes 
with  alignment  4) ;  that  is,  'BIT'  mode  storage  assignments 
cannot  overlap  word  boundaries.  Thus,  the  alignment  of  a  'BIT' 
mode  item  is  determined  by  two  special  rules: 

(a)  If  the  item  is  a  component  of  a  'COMPONENT 

STRUCTURE' ,  it  is  aligned  to  the  next  available 
bit,  unless  the  item  will  then  not  fit  within 
that  word,  in  which  case  it  is  aligned  to  the 
first  bit  in  the  next  word. 

(b)  In  all  other  cases,  the  exact  alignment  is 
undefined.  For  this  reason,  'BIT'  mode  items 
currently  should  not  be  passed  as  parameters, 
except  as  components  of  component  structure  or 
array  parameters. 


ls.ljils.1 _ 'BOOLEAN'  mode 

•BOOLEAN'  mode  (abbreviation  'BOOL')  has  exactly  two 
values:  'TRUE'  and  'FALSE'.  It  has  implied  length  1  and 
alignment  1. 


3j.Jj.JLs.  3 _ 'CHARACTER'  mode 

A  'CHARACTER'  mode  (abbreviation  'C')  value  is  a  fixed- 
length  string  of  characters.  The  attribute  keyword  takes  an 
optional  suffix  of  the  form  (L)  ,  where  L  is  an  integer  constant 
between  1  and  256  which  specifies  the  number  of  characters  in 
the  string.  If  the  suffix  is  omitted,  the  default  length  is  1. 
Since  each  character  requires  one  byte  of  storage,  the  length 
attribute  is  the  same  as  the  character  length.  The  implied 
alignment  is  1. 
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3.  1  .  1.9 _ *  VARYING  CHARACTER1  mode 

A  'VARYING  CHARACTER'  mode  (abbreviation  'VC')  value  is  a 
varying-length  string  of  characters,  together  with  an  integer 
value  which  specifies  the  current  length  of  the  string.  The 
attribute  keyword  takes  an  optional  suffix  of  the  form  (L)  , 
where  L  is  an  integer  constant  from  1  to  32767  which  specifies 
the  maximum  string  length.  If  the  suffix  is  omitted,  the 
default  maximum  length  is  256.  At  run  time,  the  string  value 
may  be  any  sequence  of  characters  whose  length  does  not  exceed 
the  maximum  length.  This  includes  the  "null"  string,  which  has 
length  zero.  The  implied  alignment  is  2,  and  the  implied  length 
is  2+ (the  maximum  length).  The  constant  symbol  'NULL  VC'  is  a 
pre-defined  constant  of  this  mode;  it  has  maximum  length  zero, 
string  length  zero,  and  length  attribute  2. 


3.  1.  1.  10 _ 'FILE  NAME'  mode 

A  value  of  'FILE  NAHE'  mode  (no  abbreviation)  is  a  set  of 
specifications  for  a  MAD/I  file.  It  has  implied  length  4  and 
alignment  4.  Refer  to  Section  6  (Input/Output) . 


3.1.1.11 _ 'TRANSFER  POINT'  mode 

An  item  of  'TRANSFER  POINT*  mode  (no  abbreviation)  names  a 
point  in  the  program  which  can  receive  a  transfer  of  control 
from  elsewhere  within  the  same  program,  but  which  does  not  have 
the  special  properties  of  an  "entry  point".  'TRANSFER  POINT' 
mode  is  never  explicitly  declared;  instead,  identifiers  are 
contextually  declared  as  labels  by  appearing  before  a  colon  in 
front  of  a  statement.  As  long  as  nothing  in  the  program  causes 
a  label  to  be  declared  as  'ENTRY  POINT'  mode,  then  it  will 
receive  'TRANSFER  POINT*  mode  by  default.  All  items  of  this 
mode  have  'STATIC'  storage  class.  Items  of  'TRANSFER  POINT' 
mode  cannot  be  formal  parameters,  nor  can  they  be  passed  as 
actual  parameters. 


Part  I 


Description  of  the  MAD/I  Language 


40 


Section  3:  Attributes 


3.1.2 _ Structured  Modes 

Structured  modes  characterize  data  objects  which  involve 
other,  "subordinate"  data  objects.  We  will  use  the  general  term 
"subtype"  to  talk  about  a  subordinate  data  object  (such  as  a 
"component"  or  "result")  of  a  structured-mode  object.  Unless 
otherwise  stated,  a  subtype  may  be  of  any  mode,  including  the 
structured  modes. 


2..  1, _ Array  modes 

A  value  of  an  array  mode  ('FIXED  ARRAY'  or  'VARYING  ARRAY') 
is  an  array  of  one  or  more  component  values.  An  array  is  a 
"homogeneous"  structure  in  that  all  its  components  share  the 
same  mode,  storage  class,  and  storage  layout  attributes.  The 
attribute  keyword  takes  an  obligatory  suffix  —  a  parenthesized 
list  of  subscript  bounds  specif ications  (see  Appendix  A  for 
explanation  of  syntax  notation)  : 

array-suffix  =  (  list  ,  bounds  ) 

bounds  =  [ integer  ...  ]  integer 

integer  =  (+  |  -]  unsigned-integer-symbol 

If  two  integers  are  given,  the  first  one  specifies  the  lowest 
value  (lower  bound)  for  that  subscript  position,  and  the  second 
specifies  the  highest  value  (upper  bound) .  If  only  one  integer 
is  given,  it  specifies  the  upper  bound,  and  the  lower  bornd  is 
assumed  to  be  1.  The  upper  bound  must  be  greater  than  or  egual 
to  the  lower  bound.  The  number  of  "bounds"  given  specifies  the 
number  of  dimensions  of  the  array  and  also  the  number  of 
subscripts  which  must  be  given  to  designate  a  component.  This 
number,  the  set  of  bounds  values,  and  the  spacing  (in  storage) 
of  components,  together  constitute  the  dimension  attribute  of 
the  array.  Dimension  is  classed  as  a  "storage  layout" 
attribute. 

The  array-suffix  may  be  followed  by  an  optional  explicit 
declaration  or  a  typical  array  component.  If  this  is  omitted, 
the  current  'DEFAULT'  declaration  is  copied  as  an  implicit 
declaration.  The  storage  class  of  a  component  cannot  be 
declared;  it  is  always  the  same  as  the  storage  class  of  the 
array. 

Example: 


'DECLARE'  A  'FIXED  A  FRAY • ( 1 0, - 2. . . 5)  ' CHARACTER '  (5) 

declares  that  variable  A  names  a  two-dimensional  array  with  10 
"rows"  (first  subscript)  numbered  from  1  to  10,  and  6  "columns" 
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(last  subscript)  numbered  from  -2  to  5.  The  array  has  10  x  8  = 
80  components,  each  of  which  is  a  fixed-length  string  of  5 
characters. 

The  components  of  an  array  are  assigned  storage  at 
regularly-spaced  intervals.  The  minimum  distance  from  the 
beginning  of  one  component  to  the  beginning  of  the  next  is  the 
"aligned  length"  of  a  component,  which  is  computed  as  the  length 
of  the  component,  extended  as  needed  to  satisfy  the  alignment  of 
the  next  component.  Along  each  dimension  (subscript  position) 
of  an  array,  the  successive  components  have  the  same  spacing, 
which  is  always  a  multiple  of  the  aligned  length.  The  default 
alignment  of  an  array  is  the  same  as  the  alignment  of  its 
components. 

When  the  components  of  an  array  must  be  treated  in  serial 
order  (*s  in  storage  assignment  or  in  I/O  transmission) ,  some 
sort  of  sequencing  rule"  must  be  employed.  The  default  array 

sequencing  rule  is  called  row-major _ order,  and  is  the  order 

produced  by  varying  each  subscript  from  its  lower  bound  to  its 
upper  bound,  the  last  subscript  varying  first,  then  the  next-to- 
last,  etc.,  until  all  combinations  have  been  produced.  For 
example,  if  we  have  declared  A  ‘FIXED  ARRAY*  (-1. . . 1,2,0. . .2)  , 
then  row-major  order  gives  the  sequence:  A  (-1,1,0),  A  (-1,1,1), 
A(— 1,1,2),  A  (—1,2,0),  A  (— 1,2,1),  A(— 1,2,2),  A(0,1,0),  A(0,1,1), 
i  A  (0,  2,  2)  ,  A  ( 1 , 1 , 0)  ,  ,  A  (1,2,2)  • 


3. 1 .2. 1. 1  ‘FIXED  ARRAY*  mode 

•FIXED  ARRAY'  mode  (abbreviation  *FA‘)  characterizes  arrays 
whose  dimension  attributes  are  permanently  fixed  at  compile 
time.  That  is,  the  number  of  dimensions,  the  subscript  bounds, 
and  the  spacing  of  components  are  all  declared  just  once,  and 
cannot  vary  at  run  time.  The  MAD/I  translator  can  take 
advantage  of  this  invariance  to  make  operations  on  fixed  arrays 
more  efficient  than  the  same  operations  on  varying  arrays. 


3. 1.2. 1.2 _ 'VARYING  ARRAY'  mode 

'VARYING  ARRAY'  (abbreviation  'VA')  characterizes  arrays 
whose  dimension  attributes  can  vary  at  run  time.  The  number  of 
dimensions  of  a  varying  array  is  fixed,  but  the  subscript  bounds 
and  the  spacing  of  components  can  be  varied  dynamically  with  the 
•REDIMENSION'  statement  (see  Section  5.14).  The  dimension 
attribute  declared  in  the  program  controls  both  the  storage 
allocated  to  the  array,  and  also  the  interpretation  of  any 
•PRESET'  assignments  into  the  array.  The  re-dimension  operation 
will  not  vary  the  location  or  size  of  the  storage  allocated  to 
the  array.  For  such  arrays  the  declared  dimensions  should  be 
large  enough  to  accommodate  the  maximum-size  array  anticipated. 
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2j.2 _ 'COqFONENT  STRUCTURE'  mode 

A  value  of  'COMPONENT  STRUCTURE'  node  (abbreviation  *CS') 
is  a  structure  of  component  values  which  say  be  of  different 
modes.  Thus,  a  component  structure  is  a  "non-homogeneous" 
structure,  in  that  its  conponeuts  need  not  all  share  the  same 
mode  and  storage  layout  attributes.  A  component  structure  is  a 
single  compact  data  object  in  storage,  so  all  its  components  do 
share  the  same  storage  class  attribute.  The  attribute  keyword 
takes  an  obligatory  suffix  --  a  parenthesized  list  of  component 
declarations: 

cs-suffix  =  (  list  ,  component-decln  ) 
component-decln  = 

f  component-name]  declaration-string 

Each  component-decln  declares  one  component,  which  may  have  any 
mode,  primitive  or  structured  (except  ' TRANSFER  POINT*  and 
'  ENTPY  POINT'  modes),  as  specified  by  the  declaration-string. 
If  a  component-name  (see  Sec.  2.2.5)  is  given,  then  its 
interpretation  for  the  particular  component  structure  is  a  name 
for  the  component  being  declared.  If  the  declaration- string  is 
empty,  then  the  current  'DEFAULT*  declaration  applies  to  that 
component. 

For  example,  the  declaration  statement 

'  DCL '  AGG  'CS*  (•  BIT' (8)  ,  • INTEGERSHORT' ,  'POINTER') 

declares  that  AGG  is  a  variable  of  'COMPONENT  STRUCTURE'  mode, 
with  three  unnamed  components.  The  first  component  has  'BIT' 
mode,  the  second  has  'INTEGER  SHORT'  mode,  and  the  third  has 
'POINTER'  mode.  Since  the  components  are  not  named,  they  can  be 
designated  only  by  their  ordinal  position;  e.g.,  the  second 
component  must  be  designated  by  the  expression  AGG(2)  . 

As  another  example,  the  declaration 

•DCL'  VCHAR  'CS'  ('IS',  d)L NG  'IS',  SCHS  'FA'(50)'C'  ) 

declares  that  variable  VCHAR  is  a  component  structure  with  three 
components:  two  of  'INTEGER  SHORT'  mode,  and  one  'FIXED  ARRAY' 

whose  components  are  single  characters.  The  first  component  can 
only  be  designated  as  VCHAR  (1)  ;  the  second  as  either  VCHAR  (2) 

or  VCHAR$SLNG  ;  the  third  as  either  VCHAR  (3)  or  VCHAR$3CHS  . 
The  Ith  character  ot  the  third  component  may  be  designated  as 
either  VCRAK(3)(I)  or  VCHAR  SACHS  (I)  . 

The  components  <  f  a  component  structure  have  the  same 
ordering  in  stcrace  as  in  the  structure  declaration.  Each 
component  is  positioned  after  the  preceding  component,  with  the 
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minimum  gap  needed  to  satisfy  its  alignment  attribute.  The 
default  alignment  of  the  structure  is  the  maximum  of  the 
individual  component  alignment  attributes.  The  default  length 
of  the  structure  is  the  minimum  length  needed  to  contain  all  the 
aligned  components. 


A  value  of  'ALTERNATE*  mode  (abbreviation  'ALT')  is  similar 
to  a  component  structure  (Sec.  3. 1.2. 2),  except  that  the 
"components"  are  actually  alternative  interpretations  of  the 
value  itself.  It  is  eg ui valent  to  a  component  structure  in 
which  the  components  all  overlap  each  other,  instead  of  being 
disjoint.  The  attribute  keyword  takes  the  same  torm  of 
obligatory  suffix,  a  cs-suffix. 

For  example,  the  declaration  statement 

•DCL •  WHAT  'ALTERNATE*  (• INTEGER ',' FLOATING • ) 

declares  that  variable  WHAT  has  'ALTERNATE'  mode,  with  two 
interpretations:  HHAT(1)  has  'INTEGER'  mode,  and  WHAT  (2)  has 

'FLOATING*  mode.  We  could  also  have  used  named  components. 

The  value  of  an  'ALTERNATE'  node  item  has  only  one 
component  mode  at  a  time,  and  it  is  the  programmer's 

responsibility  to  know  which  it  is  at  any  given  point  in  the 

program.  Dynamic  mode  testing  is  not  provided. 

The  alignment  of  the  "structure"  is  the  maximum  of  its 

component  alignments,  and  its  length  is  the  maximum  of  its 
component  lengths. 
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A  value  of  ' POINTER '  node  (abbreviation  'PT')  is  a  pointer 
to  another  value.  A  "pointer"  is  the  MAD/I  counterpart  of  a 
computer  storage  address,  but  is  not  necessarily  implemented  as 
a  simple  address.  Ihe  attribute  keyword  takes  an  optional 
suffix,  which  must  be  a  declaration-string,  to  describe  the 
value  pointed  to.  If  the  suffix  is  omitted,  the  usual  default 
is  not  applied;  rather,  the  value  pointed  to  is  considered  as 
"not  declared".  'POINTER*  mode  has  implied  length  4  and 

alignment  4. 

Examples : 

' DCL '  Pi  'POINTER*  'INTEGER* 

declares  variable  Pi  to  have  'POINTER'  mode,  with  values  that 
point  to  values  of  'INTEGER*  mode. 

•DCL'  P2  'PT*  ' PT' 

declares  that  the  value  of  P2  is  a  pointer  to  a  pointer  to  a 
"not  declared"  value. 

This  mode  has  a  pre-defined  constant,  'NULL  PT'  ,  whose 

value  is  a  "null"  pointer;  it  does  not  point  to  a  value.  Other 

pointer  constants  may  be  defined  as  described  in  Sections 

2. 1 . 4.  3  and  4.2.10. 
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An  item  of  • ENT  RY  POINT'  aode  (abbreviation  'BP')  naaes  a 
point  in  some  prograa  which  can  receive  a  transfer  of  control, 
and  which  has  the  special  properties  of  an  "entry  point" 
described  below.  The  attribute  keyword  takes  an  optional 
suffix,  which  Bust  be  a  declaration-string,  to  describe  the 
value  produced  as  a  result  of  "calling"  the  designated  entry 
point.  If  the  suffix  is  onitted,  the  'DEFAULT*  declaration  is 
applied.  Every  entry  point  has  the  following  properties: 


(1)  It  can  receive  either  "go  to"  or  "call"  transfers  of 
control. 


(2)  It  can  receive  transfers  ("call"  or  "go  to")  from 
external  procedures  as  well  as  procedures  within  the 
sane  prograa. 


As  a  consequence,  an  entry  point  is  Bore  "expensive"  than  an 
ordinary  transfer  point,  since  it  Bust  perform  whatever  rituals 
are  required  by  program  linkage  conventions.  Also,  some  entry 
points  take  parameters,  whereas  transfer  points  cannot. 


An  item  may  be  declared  'ENTRY  POINT'  in  several  ways: 


(1)  Explicitly,  with  the  'ENTRY  POINT'  keyword. 

(2)  Contextually,  as  an  identifier  in  a  procedure-prefix. 

For  example, 

•PROCEDURE*  F.  (X)  ,  G.  (Y  ,  Z) 
contextually  declares  F  and  G  as  'ENTRY  POINT'  . 

(3)  Implicitly,  as  a  label  which  is  declared  'ACCESSIBLE'  . 

(U)  contextually,  as  an  identifier  G  which  occurs  in  either 
the  context  G. ( — )  or  the  context  "G"E  ,  and  has  not 
been  explicitly  declared  in  the  block  containing  the 
occurrence.  In  this  case,  if  G  is  not  a  label  in  the 
program,  it  is  contextually  declared  'EXTERNAL'  as 
well. 


Any  entry  point  declared  only  contextually  is  assuaed  to  produce 
result  values  of  default  aode. 

An  item  declared  'ENTRY  POINT'  Bust  be  an  identifier. 
Thus,  structured  values  cannot  have  components  or  results  of 
•ENTRY  POINT'  mode.  Also,  every  entry  point  must  have  'STATIC' 
storage  class. 
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_ lENlJhY_NAME.l_node 

A  value  of  • ENTFY  NAME'  node  (abbreviation  'EN')  is  a 
pointer  to  an  entry  point,  together  with  additional  information 
to  determine  an  environment  for  the  entry  point.  The  attribute 
keyword  takes  an  optional  suffix,  which  must  be  a  declaration- 
string,  to  describe  the  value  produced  as  a  result  of  calling 
the  entry  point  pointed  to.  If  the  suffix  is  omitted,  the 
•DEFAULT*  declaration  is  applied. 


Items  of  ‘ENTRY  NAME*  mode  can  be  constants,  variables,  or 
expressions.  (Note  that  'TRANSFER  POINT*  and  'ENTRY  POINT* 


modes  do  not  have  variables.) 
constant,  'NULL  EN*  ,  whose 
does  not  specify  an  entry  point 
name  constants  may  be  defined 
and  4.2.10.  Their  values  point 
carry  environment  information; 
is  used. 


This  mode  has  a  pre-defined 
value  is  a  •'null"  entry  name;  it 
or  an  environment.  Other  entry 
as  described  in  Sections  2.  1.4.4 
to  entry  points,  but  they  do  not 
this  is  filled  in  when  the  value 


Unlike  entry  points,  entry  names  are  not  restricted  to 
static  storage  class.  Also,  entry  names  may  be  passed  as  actual 
parameters  to  procedures,  and  may  be  used  in  'RETURN  TO' 
statements. 
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j.2  Storage  Layout  Attributes 

Storage  layout  attributes  are  applicable  to  items  which  are 
variables,  constants,  or  expressions.  These  attributes 
determine  both  the  amount  of  storage  allocated  to  an  item,  and 
the  arrangement  of  the  item's  value  in  the  allocated  storage. 


3.2,1 _ Length  attribute 

The  "length"  attribute  of  an  item  specifies  the  amount  of 
storage  allocated  to  that  item.  The  attribute  keyword  'LENGTH' 
takes  an  obligatory  suffix  of  the  form  (L)  ,  where  L  is  a  non¬ 
negative  integer  constant  which  specifies  the  length  in  bytes. 
The  length  attribute  is  taken  as  the  maximum  of  the  value  of  L 
and  the  implied  length  (if  any)  implied  by  other  attributes  of 
the  item. 

For  example,  'INTEGER  LONG*  mode  has  an  implied  length  of  4 
bytes.  The  declaration  statement: 

•DECLARE'  A  'INTEGER', 

B  'LENGTH'  (2)  'INTEGER', 

C  'LENGTH'  (6)  'INTEGER* 

would  cause  variables  A,  B,  and  C  to  receive  length  attributes 
of  4,  4,  and  6  bytes,  respectively. 

For  those  modes  whose  keywords  do  not  take  "length" 
suffixes,  a  declaration  of  the  length  attribute  has  no  effect  on 
the  value  of  the  item,  but  only  allows  extra  storage  to  be 
allocated.  In  the  above  example,  variable  C  will  get  six  bytes 
of  storage,  but  its  values  will  still  be  the  4-byte  integers  of 
•INTEGER*  mode. 


.3.2 A 2 _ Alignment  attribute 

The  alignment  attribute  of  an  item  specifies  a  constraint 
on  the  positioning  of  its  allocated  storage.  The  attribute 
keyword  'ALIGN'  takes  an  obligatory  suffix  of  the  form  (A)  , 
where  A  is  an  integer  constant  which  specifies  the  "alignment 
factor"  for  the  desired  alignment.  The  only  valid  values  for  A 
are  1,  2,  4,  and  8.  The  alignment  attribute  for  the  item  is 
taken  as  the  maximum  of  the  value  of  A  and  the  alignment  (if 
any)  implied  by  other  attributes  of  the  item.  The  values  1,  2, 
4,  and  8  correspond  to  byte,  halfword,  fullword,  and  doubleword 
alignments,  respectively. 
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For  example,  the  declaration 

•  DCL  1  HH  'ALIGN'  {4}  'CHARACTER*  (8) 
gives  variable  HH  an  alignment  of  4. 


2x2x2 _ Dimension  attribute 

The  dimension  attribute  applies  only  to  items  of  array 
modes  (see  Sec.  3. 1.2.1),  and  specifies  the  number  of  dimensions 
of  the  array,  the  subscript  bounds  for  each  dimension,  and  the 
spacing  (in  storage)  of  the  components  along  each  dimension. 
This  attribute  does  not  have  its  own  keyword,  but  is  declared  as 
part  of  the  mode  declaration. 
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3. 3 _ Scope  Attributes 

Unlike  the  other  attributes  discussed  so  far,  scope 
attributes  are  concerned  with  names  rather  than  values.  Scope 
attributes  apply  only  to  naaes  which  are  identifiers,  and 
represent  properties  of  the  identifier  itself.  Scope  attributes 
are  closely  related  to  the  block  structure  of  programs,  and  to 
the  "renaming  convention"  which  allows  the  use  of  the  same 
symbol  as  different  names  in  different  contexts.  These  concepts 
are  discussed  in  Section  7. 

There  are  two  scope  attributes:  "scope"  and  "owner", 
defined  loosely  as  follows: 

The  scope  of  a  name  is  that  portion  of  a  program  (or  set  of 
programs)  in  which  the  name  is  uniquely  "known".  The  scope  of  a 
name  always  includes  the  program  text  internal  to  the  block  in 
which  the  name  is  declared  (explicitly  or  implicitly) ,  and 
always  excludes  the  scope  of  any  other  name  represented  by  the 
same  symbol. 

The  owner  of  a  name  is  that  block  which  provides  the 
storage  associated  with  the  name.  This  is  significant  for 
external  names,  whose  scopes  extend  to  more  than  one  program. 

Neither  of  the  scope  attributes  has  a  direct  attribute 
keyword.  Instead,  NAO/I  has  a  combination  of  language 
conventions  and  scope-controlling  keywords,  which  allow  the  user 
precise  control  of  these  attributes.  The  keywords  are:  'NEW', 

' NOTNEH ' ,  'GLOBAL',  'EXTERNAL',  and  'ACCESSIBLE';  they  are 
applied  like  ordinary  attribute  keywords,  and  are  described 
below. 

When  a  name  is  explicitly  declared,  it  is  normally 
considered  to  be  "new"  to  the  "current  block"  (the  smallest 
block  enclosing  the  declaration) .  It  is  thus  a  new  name,  its 
scope  is  limited  to  the  current  block,  and  the  current  block  is 
its  owner.  But  this  is  not  always  true  for  contextual 
declarations;  see  Sec.  3.7.1. 

'NOTNEH'  specifies  that  the  name  declared  is  no£  new  tc  the 
current  block.  This  keyword  causes  the  scope  and  ownership  of 
the  name  to  be  extended  to  the  next  outer  block,  as  though  all 
declarations  for  that  name  (except  the  'NOTNEH'  declaration)  in 
the  current  block  were  written  in  the  next  outer  block  instead. 

'GLOBAL'  specifies  "  'NOTNEH'  all  the  way  out".  A  name 
declared  ' GLCBAL '  has  its  scope  extended  out  to  all  blocks 
containing  the  declaration,  in  the  same  manner  as  for  'NOTNEH'. 

If  'NOTNEH'  or  'NEH'  is  declared  for  the  special  identifier 
'DEFAULT',  the  declaration  affects  not  the  scope  of  'DEFAULT' 
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itself,  but  rather  all  names  in  the  current  block  which  are  used 
but  not  explicitly  or  contextually  declared.  Such  names  require 
a  default  assumption  about  their  scope,  and  this  is  controlled 
by  'DEFAULT'.  If  'DEFAULT'  is  declared  'NEW'  in  the  current 
block,  then  such  names  are  considered  new  to  the  block;  if 
'DEFAULT'  is  declared  'NOTNEW',  then  such  names  are  not 
considered  new  to  the  block,  and  thus  are  known  in  the  next 
outer  block.  If  neither  'NEW'  nor  'NOTNEW'  is  declared  for 
•DEFAULT',  the  action  is  as  if  'NOTNEW'  were  declared. 

•FXTERNAL'  (abbreviation  'EXT')  specifies  that  the  name  is 
an  "external  name",  that  it  has  static  storage  class,  and  that 
its  owner  is  not  in  the  current  program  (the  program  containing 
the  'EXTERNAL'  declaration).  The  scope  of  the  name  is  extended 
from  the  current  block  to  outside  the  program. 

'ACCESSIBLE'  (abbreviation  'ACC')  specifies  that  the  name 
is  an  external  name,  that  it  has  static  storage  class,  and  that 
its  owner  is  in  the  current  program.  The  scope  of  the  name  is 
extended  from  the  current  block  to  outside  the  program.  The 
same  name  must  not  also  be  declared  'EXTERNAL'  in  the  same 
program,  since  this  would  cause  conflicting  declarations  of  its 
owner. 

If  two  or  more  external  names  are  represented  by  the  sue 
symbol,  they  are  considered  as  one  name  whose  scope  is  the  union 
of  the  individual  scopes.  This  rule  is  applied  when  programs 
are  linked  together,  and  allows  the  scope  of  a  name  to  extend  to 
multiple  programs.  Ultimately,  at  run  time,  some  program  must 
be  the  unique  owner  of  the  name. 

In  a  'PROCEDURE'  block,  the  names  of  all  entry  points  arc 
contextually  declared  'NOTNEW',  so  that  the  entry  points  are 
known  outside  the  procedure  itself.  If  the  procedure  is  the 
outermost  block,  these  names  are  contextually  declared 
'ACCESSIBLE',  and  thus  become  external  names. 
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3_- 4 _ Storaqe_Class  Attributes 

Every  identifier,  constant,  and  expression  has  exactly  one 
storage  class  attribute,  which  specifies  the  manner  in  which 
storage  is  associated  with  the  item.  The  storage  class  may  be 
declared  either  explicitly  or  implicitly. 

When  an  item  is  associated  with  storage,  then  we  say  that 
storage  is  allocated  for  the  item.  The  storage  may  be  allocated 
either  "statically”  (before  run  time)  or  ’’dynamically"  (during 
run  time).  Since  storage  is  used  primarily  to  contain  values, 
the  value  of  an  item  is  not  defined  unless  storage  is  allocated 
for  the  item. 

The  storage  classes  are:  static,  automatic,  based,  and 
formal  parameter.  The  default  storage  class  is  static. 


3.4.1 _ Static  storage  class 

This  attribute  has  the  keyword  'STATIC'.  It  specifies  that 
storage  for  the  declared  item  is  allocated  before  run  time,  and 
cannot  be  de-allocated  or  re-allocated  during  run  time. 

Static  storage  class  is  required  for  external  names,  and  is 
therefore  explicitly  declared  by  the  'EXTERNAL'  and  'ACCESSIBLE' 
keywords. 


3^.4 A 2 _ Automatic  storage  class 

This  attribute  nas  the  keyword  'AUTOMATIC'.  It  specifies 
that  storage  for  the  declared  item  is  allocated  during  run  time, 
whenever  the  block  which  owns  the  item  is  activated.  The 
storage  is  de-allocated  when  the  block  is  terminated.  During 
the  block  activation,  the  storage  cannot  be  re-allocated. 


3.4.3  Based  storage  class 

This  attribute  has  the  keyword  'BASED'.  It  specifies  that 
storage  for  the  declared  item  is  dynamically  allocated  and  de¬ 
allocated  during  run  time,  under  explicit  control  of  the 
program.  Storage  for  based  variables  may  be  allocated  and  de¬ 
allocated  in  either  of  two  ways: 


(1)  With  the  .ALLOC,  operator  and  a  pointer- valued  expression. 

(See  Section  4.) 

(2)  With  the  'ALLOCATE'  and  'DEALLOCATE'  statements.  (See 

Sec.  5.13.) 
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3 .  .  4 _ Formal  parameter  storage  class 

This  attribute  has  no  keyword.  Instead,  it  is  contextually 
declared  for  variables  which  appear  as  "formal  parameters"  in 
procedure  prefixes  (see  Sec.  5.7).  Formal  parameter  storage 
class  is  a  consequence  of  the  "call  by  reference"  convention  of 
MAD/I.  It  specifies  that  storage  for  the  declared  item  is 
dynamically  allocated  when  the  formal  parameter  is  "bound"  to 
its  corresponding  actual  parameter  (argument)  .  This  "binding" 
occurs  whenever  the  procedure  is  activated  through  an  entry 
point  for  which  the  formal  parameter  is  declared.  See  Section 
5.7  for  more  information. 
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3.5  Attribute  Assignment  —  Intrpduction 

Sections  3.5  to  3.9  describe  declarations,  which  specify 
attributes  of  items.  The  items  declared  may  be  identifiers, 
constants,  or  expressions. 

Declarations  may  be  explicitly  written  by  the  programmer; 
these  are  called  explicit  declarations.  Also,  the  language 
processor  may  "infer"  attributes  which  have  not  been  explicitly 
indicated,  but  which  are  iipiied  by  the  program  and  the  rules  of 
the  language;  the  inference  of  an  implied  attribute  is  called  an 
implicit  declaration. 

Implicit  declarations  may  arise  in  two  ways,  by  "context” 
or  by  "default": 


The  appearance  of  an  item  in  a  certain  context  can 
constitute  a  contextual  declaration  for  the  item. 

If  an  item  lacks  some  necessary  attribute,  which  has  been 
neither  explicitly  nor  contextually  declared,  then  it  may 
receive  a  "default"  attribute  by  default  declaration. 


A  declaration  may  have  either  "unconditional"  or 
"conditional"  effect;  that  is,  its  application  to  the  item  may 
be  unconditional,  or  may  depend  upon  the  absence  of  prior 
declarations.  In  general,  explicit  declarations  are  all 
unconditional,  default  declarations  are  all  conditional,  and 
contextual  declarations  can  be  either.  For  each  item  in  the 
program,  its  attributes  are  assigned  in  the  following  order: 

(1)  Assign  attributes  specified  unconditionally.  These 

attributes  must  not  conflict;  if  they  do,  it  is  an 
error.  1 

(2)  Assign  attributes  specified  conditionally  by  contextual 

declarations,  wherever  their  conditions  are  satisfied. 

(3)  Assign  default  attributes,  wherever  needed. 


Constants  and  expressions  normally  do  not  require  explicit 
declarations,  since  a  constant  gets  default  attributes 
determined  by  its  lexical  class,  and  an  expression  gets  default 
attributes  determined  by  its  operator  and  operands.  However, 
the  programmer  cai  explicitly  control  each  constant  with  the  5 
operator  and  each  expression  with  the  .ASTYPE.  and 
.ASTYPEOF.  operators  described  in  Section  3.9. 

The  default  attributes  for  variables  can  differ  from  block 
to  block.  They  are  themselves  declarable  (See  Sec.  3.7.2). 
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_ Explicit  Declarations 

There  are  three  foils  of  explicit  declarations: 

(1)  The  'DECLARE1  statement  form. 

(2)  The  "inverted”  declaration  statenent  forn. 

(3)  The  S-expression  form. 

The  three  forms  are  closely  related;  they  are  simply  alternative 
ways  of  writing  declarations.  Therefore,  nuch  of  the  syntax  of 
(explicit)  declarations  is  common  to  all  three  forns.  This 
syntax  is  described  below,  both  in  prose  and  in  syntax  notation. 
More  information  on  S-class  operators  will  be  found  in  Section 
4.2;  the  'DECLARE'  and  'DECLARE  DEFAULT'  statements  are  also 
treated  in  Section  5.9. 

Every  explicit  declaration  requires:  an  occurrence  of  the 
item  being  declared,  and  a  "declaration  string"  of  attribute 
keywords  and  their  suffixes.  He  will  defer,  for  the  moment,  the 
declaration  of  items  which  are  constants  or  expressions,  and 
focus  on  the  declaration  of  identifiers.  The  identifiers  to  be 
declared  by  a  given  declaration  string  are  written  as  an 
"identifier  list",  which  may  be  either  a  single  identifier,  or  a 
parenthesized  list  of  identifiers: 

identifier-list  =  identifier  |  (  list  ,  identifier  ) 

Examples:  A 

( E,C,  BETA) 

(X) 

The  declaration  string  will  be  applied  individually  to  each 
identifier  in  the  list. 

A  "declaration  string"  (dec ln-string)  is  a  sequence  of 
attribute  keywords  ana  their  suffixes.  The  sequence  is 
interpreted  from  lef t-to-right,  and  there  is  a  restriction  on 
the  orderinq  of  the  keywords:  any  keyword  which  appears  aj:ter  a 
structured-mode  keyword  applies  to  a  "subtype",  and  must  be 
legal  for  that  rsage.  (We  will  use  the  general  ters  "subtype" 
to  talk  about  a  subordinate  data  object  (such  as  a  component)  of 
a  structured  mode.)  Each  keyword,  together  with  whatever  suffix 
it  has,  specifies  a  "declaration"  about  the  identifier  or  a 
subtype.  At  most  one  mode  declaration  may  appear  for  the 
idontifiei.  itself. 
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Syntax  of  decln-string: 

decln-string  =  [  ij§i  non-mode-decln  ]  [mode-decln] 

non- mode -dec In  =  scope-decln  |  storage-class-decln 
|  storage-layout-decln 

scope-decln  -  '  NEH  •  |  • NOTNEN •  |  'GLOBAL* 

|  EXTERNAL*  |  'ACCESSIBLE' 

storage-class-decln  *  'STATIC*  |  ' AUTOMATIC'  |  'BASED' 

storage-layout-decln  =  'LENGTH*  (  integer  ) 

|  'ALIGN'  (  integer  ) 

integer  =  [ ♦  |  -]  unsigned-integer-syabol 

mode-decln  =  primitive-aode-decln  |  structured-mode-decln 

pr iaitive-mode-decln  = 

•INTEGER  SHORT'  |  'INTEGER  LONG' 

|  'FLOATING  SHORT*  |  'FLOATING  LONG' 

|  'PACKED'  [  (integer)  ] 

|  'BIT*  f  (integer)  ] 

|  'BOOLEAN* 

I  'CHARACTER*  [  (integer)  ] 

|  'VARYING  CHARACTER*  [  (integer)  ] 

|  'FILE  NAME' 

\ 

structured-mode-decln  = 

'FIXED  ARRAY'  (  l±s£  ,  bounds  )  subt ype-decln 
I  'VARYING  ARRAY*  (  list  ,  bounds  )  subt ype-decln 
|  'COMPONENT  STRUCTURE'  (  list  ,  comconent-decln  ) 

I  'ALTERNATE'  (  list  ,  coaponent-decln  ) 

I  'POINTER'  [subtype-decln] 

|  'ENTRY  POINT'  subtype-decln 
|  'ENTRY  NAME'  subt ype-decln 

bounds  =  [integer  ...]  integer 

subtype-decln  =  [  lisst  storage-layout-decln]  [  mode-decln  ] 

component-decln  =  [component-name ]  subtype-decln 

Examples  of  decln-string: 

(a)  'INTEGER  SHORT' 

(b)  'PACKED'  (7) 

(c)  'EXTERNAL' 

(d)  'BASED'  'ALIGN'  (8) 

(e)  'NOTNEN'  'CHARACTER' 

(f)  'FIXED  ARRAY'  (20) 
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(9) 

(h) 

(i) 


•FIXED  ARRAY*  (5,10)  * LENGTH'  (4) 
'BASED*  'ALTERNATE*  (  • ISTEGER* , 

*  ALIGN '  (8)  'fOINTER' 


'BIT*  (18) 

*  POINTER*  • BOOL* 


) 


r  m\  «bove  the  'LENGTH*  declaration  follows  the 

structlred-Jode  koy.ird.  and  thus  it  applias  to  the  S2WS 
Of  the  array,  rather  than  to  the  array  itself.  In  ' 

the  'ALIGN*  declaration  applies  to  the  pointer  walue  itself, 

rather  than  the  object  pointed  to.  Note  that  £oJlS5S2a 

class  can  not  be  declared  for  subtypes;  therefore  the  following 

are  examples  of  j.nva lid  declaration  strings. 


•PIXED  ARRAY*  (3)  'INTEGER*  'BASED* 
•FOINTER*  -EXTERNAL*  • FLOATING* 


Having  defined  and 
declaration  strings,  we 
explicit  declarations. 


illustrated  identifier  lists  and 
will  now  describe  the  various  forws  of 
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The  » DECT ABEj_s tal egeal-iail 


The  -DECUBE;  st“®J*“t^“te’l?tco«Sists,of1?l.ehst^«eit 
hey*ord°^ CECLARE^f  ollowed  b,  one'ob  -ore  identifier  Usts.  each 
followed  by  a  declaration  string,  separated  by  comas. 

DEC LABE- statement  = 

•DECLARE*  lisi  ,  {  identifier-list  decln-stnng  } 


woi-e  that  a  decln-string  can  be  "eapty";  i.e., 
omitted .  The  effect  of  .he  •DECUBE'  state.eot  is: 


it  can  be 


,a»  Each  «*ntj“"ni“bt“i.l4?Wsfitu1usoaliy  caesfit  to 
be  "new"  to  the  current  block  (see  Section  3. 3) . 

-  ISr 

attributes  are  specified  "unconditionally  . 


Examples  Of  • DECLARE*  statements: 


•DECLARE'  A 
•DECLARE*  (B,C,  D,  E) 

•DECLARE*  H,NN,P 
•DECLARE*  AA  'INTEGER* 

•DCL'  (BB,  CC  ,  DD)  'BOOLEAN*  i  »T  niTI MG  * 

•DCL*  FF  'FIXED  ARRAY*  (0...5)  • PLOATING  , 

(GG.HH)  'BASED'  'INTEGER' , 

FLAGS  'ACCESSIBLE'  'BIT*  (32) 
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_ lBvgEfcgfl_flgglaiatian_statgi8tt&.l2ii 

The  "inverted"  declaration  statement  fora  is  provided 
solely  for  prograaaer  convenience.  It  nay  be  considered  as  a 
"transfor nation"  of  the  *  DECLARE*  fora,  in  which  the  'DECLABE' 
keyword  is  replaced  by  an  attribute  keyword,  which  is  extracted 
froa  the  declaration  string.  Soae  exaaple  pairs  of  equivalent 
statenents: 

•DECLARE*  A  'INTEGER' 

•INTEGER*  A 

•DECLARE'  B  'FIXED  ARRAY •  (4,4)  • FLOATING* 

•FIXED  ARRAY*  B  (4,4)  •FLOATING* 

•  DCL  •  (C,D,E)  'CHARACTER*  (50),  F  'CHARACTER*  (5) 

•CHARACTER*  (C,D,c)  (50),  F  (5) 

Each  inverted  declaration  statement  consists  of  an 
attribute  keyword  (which  also  functions  here  as  a  statement 
keyword)  followed  by  one  or  aore  identifier  lists  separated  by 
commas;  each  identifier  list  may  be  followed  by  whatever  suffix 
the  keyword  needs,  followed  by  the  remainder  of  the  desired 
declaration  string. 

in verted -declaration-statement  * 

attribute-keyword  list  ,  {  identifier-list 

[decln-suf fix  ]  [ decln-string  ]  ) 

decln-suffix  -  (  integer  ) 

I  (  \jst  ,  bounds  )  (subtype-dec In ] 

I  (  list  ,  component-decln  ) 

|  subtype-decln 

The  inverted  statement  is  treated  as  though  it  were  transformed 
to  a  'DECLARE'  statement  by  replacing  the  initial  attribute 
keyword  with  'DECLARE',  and  inserting  the  attribute  keyword 
immediately  after  each  identifier  list. 

nore  examples  of  inverted  declaration  statements: 

•INTEGER'  A,  B, C 

•LENGTH'  S  (10),  T  (8)  'INTEGER',  U  (8)  'CHARACTER' 

•BASED'  (L,M,N)  'INTEGER',  (P,Q)  'BOOLEAN', 

STR  'COMPONENT  STRUCTURE*  ('BIT'  (8),  'BIT'  (24)) 
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3.6.3  The  <)-expression  forn 

The  a-expression  declaration  forn  is  included  primarily  for 
specifying  the  attributes  of  constants,  but  it  nay  also  be  used 
for  identifiers.  This  forn  allows  an  explicit  declaration  to  be 
attached  to  an  ordinary  occurrence  of  an  identifier  or  constant 
in  an  expression.  The  declaration  consists  of  the  iten  being 
ieclared,  followed  by  the  infix  operator  a  ,  followed  by  a 
parenthesized  declaration  string: 

a-expression  =  {identifier  |  constant)  a  (decln-string) 

The  effect  of  the  a-expression  for  an  identifier  is  the  sane  as 
that  of  a  'DECLARE'  stateaent  with  the  sane  identifier  and 
decln-string.  The  effect  for  a  constant  will  be  discussed  in 
Section  3.8.  The  result  of  the  expression  is  the  sane  as  the 
result  of  the  identifier  or  constant. 

Exanples:  ABC  2  ('INTEGER') 

17  2  ('PACKED'  (5)) 

"OOC1C2C3"  S  ('CHARACTER') 
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2*.2aJ _ CSBtgltaal.  Beg!  actions 

Contextual  declarations  are  those  which  are  implied  by  the 
usage  of  items  in  certain  particular  contexts.  An  appearance  of 
an  item  in  one  of  these  contexts  constitutes  a  contextual 
declaration  about  the  iten.  The  following  contexts  are  defined: 

Statenent  label.  If  an  identifier  appears  before  the 
special  synbol  :  in  front  of  a  (possibly  enpty)  statement, 
that  identifier  is  contextually  declared  as  a  label  ,  and  as 
"new"  to  the  current  block. 

Procedure-prefix  entry  point.  Bach  identifier  which 
apoears  as  an  entry  point  in  a  proc-prefix  (Sec.  5.7)  is 
contextually  declared  as: 

(a)  a  label; 

(b)  "notnew"  to  the  procedure  block; 

(c)  of  'ENTBYPOINT'  node. 

If  the  procedure  block  is  the  outernost  block,  each  such 
identifier  is  contextually  declated  *  ACCESSIBLE'  as  well. 

Procedure-prefix  formal  paraneter,  Bach  identifier  which 
appears  as  a  formal  paraneter  in  a  proc-prefix  is  contextually 
declared  as  a  variable,  "new"  to  the  procedure  block,  and  of 
formal  paraneter  storage  class. 

Procedure-call.  If  an  identifier  appears  as  the  left 
operand  of  the  procedure-call  operator  (  .  ) ,  it  is  coi textually 
declared  as  'EXTERNAL '  and  ' ENTFYPOINT* .  This  is  specified 
"conditionally",  so  that  if  any  explicit  declarations  appear  for 
the  identifier,  the  contextual  declaration  will  not  be  applied. 
The  scope  of  the  identifier  is  otherwise  not  affected.  If  the 
identifier  appears  as  a  label  in  the  program,  the  'EXTERNAL ' 
specification  is  not  applied. 
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h.l±2 _ Befaalt.Bssiaiations 

HAD/I  does  not  require  that  the  attributes  of  each 
identifier  be  declared  completely.  Por  exaaple,  if  a  variable 
is  declared  to  have  an  array  aode,  but  the  node  of  the  array 
coaponents  is  not  explicitly  declared ,  this  is  not  an  error.  In 
each  prograa  block  there  is  a  set  of  default  attributes,  which 
are  used  to  "fill-in"  attributes  which  have  been  neither 
explicitly  nor  contextually  declared.  There  are  default 
attributes  for  storage  class  and  node,  and  a  default  rule  for 
deteraining  the  scope  attribute.  In  each  block,  the  default 
inforaation  for  that  block  is  associated  with  the  special 
identifier  'DEFAULT1  ,  which  is  itself  declarable  as  described 
below. 


The  rules  for  applying  default  attributes  to  a  given 
variable  in  a  given  block  are: 

(1)  If  the  variable  has  been  used  in  the  block,  but  has  not 
been  explicitly  or  contextually  declared,  then  its  scope 
with  respect  to  this  block  is  deterained  from  'DEFAULT'  as 
follows: 

(a)  If  'DEFAULT'  is  declared  'NEB*  or  'NOTNEW  in 
this  block,  the  variable  is  "new"  or  "notnew"  to  the 
block,  respectively  (see  Sec.  3.3). 

(b)  If  'DEFAULT*  is  declared  either  'NEW  or 

'NOTNEW*  ir  this  block,  the  variable  is  "notnew"  -- 
the  usual  case. 

(2)  If  the  variable  has  no  storage  class  specified,  apply  the 
default  storage  class.  This  nay  be  any  storage  class  other 
than  foraal  parameter. 

(3)  If  the  variable  has  no  aode  specified,  apply  the  default 
node.  If  the  variable  has  a  structured  node  specified,  but 
soae  subtype  (e.g.,  component,  result)  aode  is  not 
specified,  then  apply  the  default  node  to  each  such 
subtype. 

The  rule  for  applying  default  attributes  to  a  given  label 
in  a  qiven  block  is:  if  the  label  has  no  aode  specified,  apply 
'TRANSFER  POINT'  node;  if  the  label  has  'ENTRY  FOINT'  node  but 
the  subtype  mode  is  not  specified,  apply  the  default  node  to  the 
subtype. 
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The  default  inforaation  itself  is  declarable  for  each 
block.  It  can  be  explicitly  declared  in  any  of  three  ways: 

(1)  With  the  ' DECLARE  DEFAULT*  stateient  (abbreviation  *DCLD* ; 
see  Section  S.9). 

E.g. ,  'DECLARE  DEFAULT*  'INTEGER  LONG* 

(2)  With  a  *  DECLARE'  stateaent  with  'DEFAULT'  in  an  identifier 
list . 

E.g.,  'DECLARE'  'DEFAULT*  ' AUTOHATIC'  'FLOATING' 

(3)  With  an  inverted  declaration  stateaent  with  'DEFAULT'  in  au 
identifier  list. 

E.g.,  'FIXED  ARRAY*  'DEFAULT' (3)  'FLOATING' 

If  the  default  inforaation  for  a  block  is  not  coapletely 
explicitly  declared,  then  the  missing  attributes  are  "filled  in" 
froa  the  defaults  of  the  next  outer  block.  For  this  purpose, 
the  outecaost  program  block  is  considered  as  contained  in  an 
imaginary  block  with  defaults  'STATIC*  'FLOATING  SHORT*.  For 
exaaple,  if  the  outeraost  program  block  contained  the 
declaration 

•DECLARE  DEFAULT'  'FIXED  ARRAY' (3) 

and  no  other  explicit  declaration  of  defaults,  then  the  defaults 
for  that  block  would  be 

Storage-class:  'STATIC' 

Hode:  'FIXED  ARRAY' (3)  'FLOATING  SHORT*  . 
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3.8  Attributes  of  Constants 

As  previously  described  in  Sections  2.1  and  2.2.2, 
constants  have  various  external  forns,  which  <re  call  "lexical 
classes".  For  each  constant,  the  compiler  Bust  be  able  to 
conpute  an  appropriate  internal  fora  for  conputation.  HAD/I 
allows  the  explicit  specification  of  attributes  of  constants, 
and  provides  that  the  conversions  fron  external  to  internal 
forms  are  controlled  by  both  lexical  class  and  additional 
attributes. 

For  each  lexical  class  of  constant  syabol,  there  is  a 
standard  conversion  to  a  specific  node.  The  prograaner  can  use 
the  a  operator  to  declare  additional  attributes  of  an 
occurrence  of  a  constant  syabol.  The  'LENGTH'  and  'ALIGN' 
attributes  can  be  used  to  adjust  the  storage  allocation  and 
positioning  of  the  internal  fora.  For  soae  lexical  classes,  the 
aode  attribute  is  also  declarable.  All  constants  have  only 
'STATIC'  storage  class.  The  rules  for  the  various  lexical 
classes  are  described  below.  The  conversion  rules  tbeaselves 
are  not  declarable,  nor  are  they  affected  by  the  defaults 
established  for  identifiers. 


Standard  conversion:  'INTEGER  LONG'  aode. 

Alternate  conversions:  'INTEGER  SHORT',  'FLOATING  SHORT', 
'FLOATING  LONG',  'PACKED'  (with  optional  length). 

Example:  305d('IS  )  converted  to  'INTEGER  SHORT'. 


Standard  conversion: 
Alternate  conversion: 
Example:  12.37d('FL') 


'FLOATING  SHORT'  node. 
'FLOATING  LONG', 
converted  to  'FLOATING  LONG'. 


_ C£aragtgE_syabols 

Standard  conversion:  'CHARACTER'  aode,  with  length  equal  to 

the  number  of  characters  represented  between  the  guotes. 

Alternate  conversion:  'CHARACTER'  node,  with  length  greater 

than  that  implied  by  the  symbol;  the  internal  fora  is 
extended  on  the  right  with  character-fill  characters 
(blanks)  . 
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Example:  "ABCDE"d  ('CHARACTER'  (8)) 


ixtua _ Hgitadsgiiil_siifcgi3 

Standard  conversion:  *  INTEGER  LONG'  mode;  the  hexadecimal 

diqits  are  treated  as  an  integer  expressed  in  base  16. 

Alternate  conversions:  'INTEGER  SHORT*  mode:  base  16  integer. 

'PACKED'  mode:  base  16  integer.  'CHARACTER'  mode:  the 
hexadecimal  digits  are  treated  as  a  bit  string ,  and  are 
left- justified  in  the  storage  allocated  for  the  constant, 
with  trailing  zero  bits  as  fills.  'FLOATING  SHORT*  and 
'FLOATING  LONG*  modes:  bit  string  left* justified,  with 
trailing  zero  bits  as  fills. 

Example:  "0 lFF"Xi  ('C'  (5) )  converted  to  'CHARACTER'  mode. 


3.8.5 _ Pojnter-constaqt  symbols 

Standard  conversion:  'POINTER'  mode. 

Alternate  conversions:  none. 


ih.8.16 _ 

Standard  conversion:  'ENTRY  NAHE'  mode. 

Alternate  conversions:  none. 
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1*J _ ftt tributes _0f  g>B£gssjons 

Host  expressions  need  not  have  their  attributes  explicitly 
declared.  Instead,  an  expression's  attributes  are  iaplicitly 
"synthesized"  froa  the  attributes  of  its  operands,  according  to 
a  "aode  context"  rule  of  its  operator.  But  soaetiaes  the 
iaplied  attributes  cannot  be  synthesized  because  of  incoaplete 
inforaation  (e.g.,  a  pointer  value  nay  point  to  an  "undeclared" 
value) .  Also,  a  prograaaer  nay  occasionally  need  to  "override" 
the  iaplied  attributes.  Thus,  there  are  tvo  pre-defined 
operators  which  allow  the  prograaaer  to  explicitly  declare 
attributes  of  expressions;  these  are  the  .ASTYPE.  and 
.ASTYPEOF.  operators,  described  below. 

.ASTYPE.  (abbreviation  .AS.)  is  an  infix  operator  which 
takes  an  expression  as  its  left  operand  and  a  parenthesized 
declaration  string  as  its  right  operand: 

astype-expression  =  expression  .ASTYPE.  (decln-string) 

The  result  of  the  astype-expression  is  exactly  the  result  of 
"expression",  but  with  the  aode  and  storage-layout  attributes 
specified  by  "decln-string";  the  storage  class  of  the  result  is 
always  the  storage  class  of  "expression". 

For  exaaple,  suppose  we  wish  to  create  a  "translate  table" 
of  characters,  such  that  for  each  integer  which  is  the  internal 
code  of  a  character,  the  table  aaps  that  integer  to  the 
'CHARACTER*  node  value  which  has  that  internal  code.  Thus,  the 
table  defines  an  "identity"  translation  on  character  codes.  Let 
the  table  be  naaed  TTC;  it  aight  be  constructed  for  the  IBH  360 
by  the  following  prograa  segaent: 

'  DCL '  I  'INTEGER',  IB  'BIT' (8), 

TTC  'FIXED  ARRAY'  (0.. .255)  'CHARACTER '( 1)  ; 

•FOR'  I: =0, 1,I>255;  IB  :=  I; 

TTC  (I)  :=  IB  .ASTYPE.  (»C»)  'ENDFOB' 

This  exaaple  assuaes  (correctly)  that  the  length  and  alignaent 
of  a  variable  declared  'BIT* (8)  will  satisfy  the  reguireaents  of 
'CHARACTER*  (1).  All  uses  of  .ASTYPE.  and  .ASTYPEOF.  involve 
such  assunptions;  it  is  the  prograaaer* s  responsibility  to  be 
sure  they  are  correct. 
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.ASTYPEOF.  is  an  infix  operator  which  takes  an  expression 
as  its  left  operand  and  a  parenthesized  variable  as  its  right 
operand: 

astypeof 'expression  =  expression  .ASTYPEOP.  (variable) 

The  result  of  the  astypeof-expression  is  exactly  the  result  of 
"expression",  except  that  its  aode  and  storage-layout  attributes 
are  copied  fros  "variable". 

For  exaaple,  in  the  "translate  table"  exaaple  described 
above,  we  could  have  written: 

•  DCL'  1  'INTEGER*,  IB  'BIT' (8)  ,  CHAR  'C'(I), 

TTC  'FIXED  ARRAY'  (0...  255)  'C' ; 

•FOR*  I:*0, 1,I>255;  IB  :=  I; 

TTC  (I)  :*  IE  .ASTYPEOF.  (CHAR)  'ENDFOR' 
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4.0  Basic  Concepts 

An  expression  is  a  syntactic  fora  which  specifies  the 
computation  of  a  result.  An  expression  can  be  a  "primitive 
expression"  (such  as  a  constant  or  identifier) ,  whose  result 
requires  little  or  no  computation,  or  a  "composite  expression" 
(such  as  Av  (B*C) ,  VT  (I)  ,  or  .ABS.X),  whose  result  is  obtained 
from  an  operation  upon  the  result (s)  of  one  or  more  sub¬ 
expressions,  or  an  "embedded  statement",  which  is  described 
later.  Each  composite  expression  consists  of  an  operator,  with 
one  or  two  adjoining  "operand  expressions"  whose  results  are  the 
operands  for  the  operation.  The  operation  itself  is  determined 
by  the  operator,  together  with  selected  attributes  (such  as 
mode)  of  the  operand  expressions. 

The  result  of  an  expression  is  either  a  reference  or  a 
value.  A  "reference"  is,  in  effect,  a  "location"  —  an 
identification  of  a  region  of  storage  which  contains  a  value 
(primitive  or  structured)  .  An  expression  which  produces  a 
reference  result  is  called  a  designator. 

note;  A  "reference"  is  not  the  sane  as  a  "pointer".  A  pointer 
is  a  type  of  value  which  corresponds  to  a  reference,  but 
which  can  be  copied  and  otherwise  manipulated. 


Example  expressions 

iteslgMigtZ 

ALPHA 

Yes 

VECT(I,  J) 

Yes 

AA  ♦  BB 

No 

FN.  (X) 

No 

V  ;=  1 

Yes 

"ABC" 

No 

-10 

NO 

.IND.  PTH 

Yes 

A  **  .ABS.B 

No 

(A*  E)  /  (C-D) 

No 

Any  expression 

can 

be  enclosed  in  parentheses  without 

affecting  its  meaning. 

Parentheses  so  used  act  as  "grouping 

marks"  only,  and  do 

not 

convert  an  expression  into  a  "list"  or 

"sequence". 


The  operators,  besides  being  categorized  as  prefix, 
postfix,  infix-left,  and  infix-right  (see  Sec.  2.2.4),  are  also 
assigned  precedences  ("precedence  levels",  "priorities", 
"binding  strengths") .  Operator  precedences  are  used  in  the 
usual  way  to  resolve  the  structure  of  expressions  which  are  not 
fully  parenthesized,  and  which  night  otherwise  be  syntactically 
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ambiguous.  See  sec.  4.3  for  the  precedences  of  the  pre-defined 
operators. 

The  order  of  computation  of  a  composite  expression  is  only 
defined  as  constrained  by  the  structure  of  the  expression, 
together  with  the  interpretation  rules  of  the  individual 
operations.  In  particular,  we  do  not  say  that  an  expression  is 
normally  evaluated  "lef t-to-right".  For  example,  in  the 
expression  (A*B)*(C  +  D),  the  sub-expressions  A+B  and  C+D  must 
both  be  evaluated  before  the  *  operation,  but  they  may  be 
evaluated  in  either  order. 

Expressions  are  used  (syntactically)  to  build  statements. 
That  is,  an  expression  can  constitute  a  statement  or  a  part  of  a 
statement.  Likewise,  it  is  possible  to  use  statements  to  build 
expressions.  Any  MAE/I  statement  can  be  made  into  a 
parenthesized  statement  which  produces  a  well-defined  result; 
such  statements  are  called  "embedded  statements",  and  they 
qualify  as  expressions.  See  Sec.  5.6  for  more  information  on 
embedded  statements. 

We  will  occasionally  wish  to  talk  about  expressions  which 
produce  results  of  certain  modes.  We  will  use  the  term 
"arithmetic  expression"  to  refer  to  any  expression  which 
produces  a  result  of  an  arithmetic  mode:  ‘INTEGER  SHORT*, 
•INTEGER  LONG',  'FLOATING  SHORT',  'FLOATING  LONG',  or  'PACKED'. 
We  will  also  use  the  term  "character-string  expression"  to  refer 
to  any  expression  producing  a  result  of  'CHARACTER*  or  'VARYING 
CHARACTER*  mode.  Similarly,  "arithmetic  designator"  and 
"character-string  designator"  refer  to  arithmetic  and  character- 
string  expressions  which  produce  reference  results. 


ib.J__EEiJ8itive_ltE£essicns 

There  are  only  two  kinds  of  primitive  expressions: 
identifiers  and  constants. 

An  identifier  (a  variable  or  a  label)  produces  a  reference 
result  —  a  reference  to  the  storage  currently  allocated  for  the 
identifier,  which  is  assumed  to  contain  the  value  of  the 
identifier.  If  no  storage  is  so  allocated,  this  is  an  error 
condition,  and  the  result  is  undefined. 

A  constant  produces  a  value  result  --  the  value  denoted  by 
the  constant.  A  constant  may  or  may  not  be  explicitly 
represented  in  the  object  module;  it  may  or  may  not  have 
associated  storage. 
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4.2  Operations 

The  various  pre-defined  operations  are  listed  below.  For 
each  operation  there  is  a  pre-defined  operator  which  denotes 
that  operation  in  some  contexts.  The  contexts  are  all  defined, 
unless  otherwise  indicated,  by  the  mode  attributes  of  the 
operand  expressions.  Thus,  for  each  operation  and  corresponding 
operator,  we  give  those  pre-defined  "mode  contexts"  for  which 
the  operator  denotes  the  operation  and  the  operation  is  defined, 
fie  also  give  the  mode  and  type  of  the  result. 

legend  _fQr_cgntext_tal?les; 

The  various  1st  operand  modes  label  the  rows,  and  the 
various  2nd  operand  modes  label  the  columns.  Each  row- 
column  position  corresponds  to  a  potential  mode  context  for 
the  operator.  Each  blank  position  defines  an  invalid  mode 
context;  each  non-blank  position  defines  a  valid  mode 
context.  A  non-blank  table  entry  has  one  of  two  forms:  (1) 
A  mode  abbreviation  of  on^  or  two  letters,  meaning  that  the 
operation  is  defined  for  this  context,  and  the  result  has 
the  mode  indicated.  (2)  A  digit  (1  or  2)  followed  by  a 
mode  abbreviation,  meaning  that  a  copy  of  the  1st  or  2nd 
operand  (as  indicated  by  the  digit)  is  converted  to  the 
mode  indicated,  and  the  table  is  re-entered  with  the  new 
mode  context. 


ib.2AJ__l£ithietic_o£e£aiions 

The  arithmetic  operations  are  primarily  defined  on  the 
following  "arithmetic  modes": 


iSeywgrd 

i4bfc££Zj _ £ 

•INTEGER  SHORT* 

IS 

•INTEGER  LONG' 

IL 

•FLOATING  SHORT' 

FS 

•FLOATING  LONG' 

FL 

•PACKED' 

PK 

l££-2abl£sJL 


Some  arithmetic  operations  are  also  defined  for  some  contexts 
using  the  "semi-arithmetic"  modes: 

•BIT*  BT 

•POINTER*  PT 

The  arithmetic  operations  are  as  follows: 
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Addition  (binary),  denoted  by  e.g.,  "A  ♦  B".  The  operand- 

result  contexts  are  summarized  in  the  table  below. 


19 +  11 

1 

1  _ 

FL 

1 

FS 

1 

IL 

FL 

1 

FL 

1 

2FL 

1 

2FL 

FS 

1 

1PL 

1 

FS 

1 

2FS 

IL 

1 

1FL 

1 

1  FS 

1 

IL 

IS 

1 

1FL 

1 

1  FS 

1 

1IL 

PK 

1 

1FL 

1 

1  FS 

1 

1IL 

BT 

PT 

1 

1 

21 L 

1 

1 

2IL 

1 

1 

1 1L 
PT 

IS  |  PK  |  BT  |  PT  | 

- 1 - , - H - 1 

2FL  |  2FL  |  |  1IL  | 

2FS  |  2FS  |  |  1IL  | 

2IL  |  2IL  |  21 L  |  PT  | 

IS  |  2IS  |  2IS  |  PT  | 

IIS  |  PK  |  |  1IL  | 

IIS  |  I  BT  |  | 

PT  |  2IL  |  |  | 


Subtraction  (binary)  ,  denoted  by  e.g.,  "A  -  B".  The  result 

is  a  value  —  the  value  of  the  1st  operand  minus  the  value 
of  the  2nd  operand.  See  the  following  table. 


"-"  |  FL  |  FS  |  IL  |  IS  |  PK  |  BT  | 

- 1 - 1 - 4 - + - 1- - 1 - + 

FL  |  FL  |  2FL  |  2FL  |  2FL  |  2FL  |  I 

FS  |  1 FL  i  FS  |  2FS  |  2FS  |  2FS  |  | 

IL  |  1FL  |  1FS  |  IL  |  2IL  |  2IL  |  2IL  | 

IS  |  1FL  |  1FS  |  1IL  |  IS  |  2IS  |  2IS  | 

PK  |  1FL  |  1 FS  |  1 1L  |  IIS  |  PK  |  | 

BT  |  |  |  1IL  |  IIS  |  I  BT  | 

PT  |  2IL  |  2IL  |  PT  |  PT  |  2IL  |  | 


PT 


IL 


j 


Multiplication  (binary),  denoted  by  e.g.,  "A  *  B".  The 

result  is  a  value  —  the  product  of  the  operand  values. 
See  the  following  table. 


•1  *11 

|  FL 

1 

1 

FS 

1 

I 

IL 

1 

1 

IS 

1 

1 

PK 

1 

1 

BT 

t 

T" 

I 

"T~ 

T 

FL 

FL 

1 

2FL 

1 

2FL 

1 

2FL 

1 

2FL 

1 

FS 

1FL 

1 

FS 

1 

2FS 

1 

2FS 

1 

2FS 

l 

IL 

1FL 

1 

1  FS 

1 

IL 

1 

2IL 

1 

2IL 

1 

2IL 

IS 

1FL 

1 

1  FS 

1 

1IL 

1 

IS 

1 

2IS 

i 

2IS 

PK 

1FL 

1 

1FS 

1 

1IL 

1 

IIS 

1 

PK 

l 

BT 

1 

1 

1 1L 

1 

IIS 

1 

1 

BT 

.j 

Division  (binary),  denoted  by  e.g.,  "A  /  B".  The  result  is 

a  value  —  the  quotient  obtained  by  dividing  the  1st 
operand  value  by  the  2nd  operand  value.  If  both  operands 
have  integer-like  (not  floating-point)  modes,  the  operation 
is  "integer  division".  See  the  table  for  multiplication, 
above. 
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Remainder  (binary),  denoted  by  ".REM.";  e.g.,  "I  .REM.  J".  The 
result  is  a  value  —  the  remainder  obtained  from  dividing 
the  1st  operand  value  by  the  2nd  operand  value.  See  the 
following  table. 

" . REM. " |  IL  |  IS  |  PK  |  BT  | 

- -j - , - H - H - 1 

IL  |  IL  |  2IL  |  2IL  |  2lL  | 

IS  |  1IL  |  IS  |  2IS  |  2IS  | 

PK  |  1IL  |  IIS  |  PK  |  | 

BT  |  1 IL  |  IIS  |  |  BT  | 


Negation  (unary),  denoted  by  " . NEG. •'  (or  prefix  "-")  ;  e.g., 

".NEG.  A",  "-A".  The  result  is  a  value  —  the  arithmetic 

negative  of  the  operand  value.  See  the  following  table. 

•'.NEG. "|  FL  |  FS  1  IL  |  IS  |  PK  | 

- ^ - 1 - -| - H - 1 - 1 

|  FL  |  FS  |  IL  |  IS  |  PK  | 


Absolute  value  (unary),  denoted  by  ".ABS.";  e.g.,  ".ABS.  A". 

The  result  is  a  value  —  the  value  of  the  operand  if  that 
is  non-negative,  otherwise  its  negative.  See  the  table  for 
negation,  above. 

Exponentiation  (binary),  denoted  by  e.g.,  "A  **  B".  The 

result  is  a  value  —  the  1st  operand  value  raised  to  the 
power  of  the  2nd  operand  value.  See  the  following  table. 

''*♦"1  FL  |  FS  |  IL  |  IS  |  PK  |  BT  | 

- - 1 - -i - + - 1 - H - 1 

FL  |  FL  |  2FL  |  FL  |  2IL  |  2IL  |  2IL  | 

FS  |  1FL  |  FS  |  FS  |  2IL  |  2IL  |  2IL  | 

IL  |  1FL  |  1FS  |  IL  |  2IL  |  2IL  |  2IL  | 

IS  |  1FL  |  1FS  |  1IL  |  IL  |  2IS  |  2IS  | 

PK  |  !FL  |  1  FS  |  1IL  (  IIS  |  IL  |  j 

BT  |  |  |  1 1L  |  IIS  |  |  BT  | 
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_ Mlalifinal_o£e  rat  ions 

The  six  pre-defined  relational  operations  are  described  as 
a  group.  The  result  of  each  is  a  Boolean  value  —  representing 
whether  the  operand  values  satisfy  the  specified  relation. 

Equality  (binary),  denoted  by  e.g.,  "A  =  B". 

Inequality  (binary),  denoted  by  and  ".NE.";  e.g.,  "A  -»=  B" , 

"A.  NE.  B". 

Greater-than  (binary),  denoted  by  e.g.,  "A  >  B". 

Greater-t han-or-equal-to  (binary),  denoted  by  e.g., 

"A  >=  B". 

Less-than  (binary),  denoted  by  e.g.,  "A  <  B". 

Less-t han-or-equal-to  (binary),  denoted  by  e.g.,  "A  <=  B" . 


All  six  operations  are  defined  for  the  mode  contexts  shown 
in  the  following  two  tables: 


REL'N 

|  FL 

1 

1 

i,_ 

FS 

1 

.X. 

IL 

FL 

r 

|  BL 

I 

1 

2FL 

T 

1 

2FL 

FS 

|  1FL 

1 

BL 

1 

2FS 

IL 

|  1FL 

1 

1  FS 

1 

BL 

IS 

|  1FL 

1 

1  FS 

1 

1IL 

PK 

|  1FL 

1 

1  FS 

1 

1IL 

BT 

1 

1 

1IL 

)  IS  |  PK  |  BT  | 

-I - 1 - d - 1 

|  2FL  |  2FL  |  | 

|  2FS  |  2FS  |  1 

|  2IL  |  2IL  |  2IL  | 

|  BL  |  2IS  |  2IS  | 

I  IIS  |  BL  |  | 

I  IIS  |  I  BL  | 


j 


REL'N|  BL  |  BT  l  VC  |  C 


- — 

-t—  1 -  -1- 

" 

-T- 

BL 

|  BL  |  2 BL  | 

1 

1 

BT 

|  1BL  |  BL  ( 

1 

1 

VC 

1  i  1 

BL 

1 

BL  | 

c 

1  1  i 

BL 

1 

BL  | 

_ j 

Boolean  values  are  compared  by  interpreting  *  TRUE'  as  "1" 
and  'FALSE'  as  "0".  Character  strings  are  compared  according  to 
the  collating  sequence  of  the  character  set.  If  the  two 
character  strings  have  different  lengths,  the  shorter  string 
value  is  extended  on  the  right  with  character-fill  characters 
(blanks)  before  comparison. 
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The  equality  and  inequality  operations  are  also  pre-defined 
for  operand  pairs  of  the  following  nodes: 

•POINTER'  (PT,  PT) 

•ENTRY  NAHE*  (EN,  EN) 


4.2.3 _ Boolean  operations 


The  Boolean  (logical)  operations  are  defined  on  operands  of 

Boolean  and  Bit  nodes  only;  they  all  produce  Boolean  value 

results  which  depend  upon  the  values  of  the  operands.  Bit  node 

operands  are  converted  to  Boolean  mode. 

Logical  negation  (unary),  denoted  by  and  •'.  NOT. " ;  e.g. , 

P",  ".NOT.  P". 

Logical  "and"  (conjunction)  (binary) ,  denoted  by  "6"  and 
".AND.";  e.g.,  "P  6  Q",  "P  .AND.  Q".  If  either  operand  is 

•FALSE',  the  other  operand  expression  possibly  may  not  be 
evaluated. 

Logical  "or"  (disjunction)  (binary),  denoted  by  "|"  and  ".OR."; 
e.g.,  "P  I  Q",  "P  .OR.  Q«.  If  either  operand  is  'TRUE*, 
the  other  operand  expression  possibly  may  not  be  evaluated. 

Logical  "exclusive  or"  (binary),  denoted  by  ".EXOR.";  e.g., 

"P  .EXOR.  Q". 

Loqical  "implication"  (binary),  denoted  by  ".THEN.";  e.g., 

"P  .THEN.  Q".  The  result  is  'FALSE*  if  the  1st  operand  is 
•TRUE'  and  the  2nd  operand  is  'FALSE';  otherwise,  the 
result  is  'TRUE'.  If  the  1st  operand  is  'FALSE'  or  the  2nd 
operand  is  'TRUE',  the  other  operand  expression  possibly 
may  not  be  evaluated. 

Logical  "equivalence"  (binary),  denoted  by  ".EQV. " ;  e.g., 

"P  .EQV.  Q".  The  result  is  'TRUE'  if  the  operand  values 
are  egual,  and  'FALSE'  otherwise. 
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4.2.4 _ Bit-string  operations 

The  bit-string  operations  are  defined  on  operands  of  all 
modes  except  'TRANSFER  POINT'  and  'ENTRY  POINT*.  The  result  is 
always  a  bit-string  value,  with  the  sane  mode  and  length  as  the 
1st  operand. 

The  bitwise  logical  operations; 

The  operand  values  are  treated  as  bit  strings.  The  binary 
operations  "and",  "or",  and  "exclusive  or"  require  equal-length 
operands. 

Bitwise  negation  (unary),  denoted  by  ".N.";  e.g.,  ".N.  A".  Each 
bit  of  the  result  is  the  negation  (complement)  of  the 

corresponding  bit  of  the  operand. 

Bitwise  "and"  (binary),  denoted  by  ".A.";  e.g.,  "A  .A.  B".  Each 
bit  of  the  result  is  the  "and"  (conjunction)  of  the  two 

corresponding  bits  of  the  operands. 

Bitwise  "or"  (binary),  denoted  by  ".V.";  e.g.,  "A  .V.  B".  Each 
bit  of  the  result  is  the  "or"  (disjunction)  of  the  two 

corresponding  bits  of  the  operands. 

Bitwise  "exclusive  or"  (binary),  denoted  by  ".EV.";  e.g., 
"A  .EV.  B".  Each  bit  of  the  result  is  the  "exclusive  or" 
of  the  two  corresponding  bits  of  the  operands. 

£h  e _ bit Si s e_ s hi£t _ op  e r a 1 ioflSl 

The  first  operand  value  is  treated  as  a  bit  string.  The 
second  operand  must  have  an  arithmetic  mode  or  *BIT'  mode;  its 
value  is  converted  (if  necessary)  to  an  integer  value,  which 
must  be  non-negative  and  is  used  as  the  shift  count.  The  result 
is  a  new  value;  neither  operand  is  affected. 

Bitwise-logical  left  shift  and  right  shift  (binary) ,  denoted  by 
".LS."  and  ".RS.",  respectively;  e.g.,  "A  .LS.  J"  , 
"A  .RS.  J".  The  1st  operand  value  is  shifted  left  (or 
right)  by  the  .  number  of  bit  positions  specified  by  the 
shift  count.  If  the  shift  count  is  negative  the  operation 
is  undefined.  The  bit  string  stays  the  same  length;  bits 
shifted  off  either  end  are  lost,  and  vacated  bit  positions 
are  filled  with  0  bits. 

Bitwise-arithmetic  left  shift  and  right  shift  (binary)  ,  denoted 
by  " . LSA. "  and  " . RSA. ",  respectively;  e.g.,  "A  .LSA.  J"  , 
"A  . S3A .  J".  The  first  operand  value  is  treated  as  a 
binary  representation  of  a  signed  integer.  It  is  shifted 
left  (or  right)  by  the  number  of  binary  digits  specified  by 
the  shift  count.  If  the  shift  count  is  negative  the 
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operation  is  undefined.  The  binary  integer  stays  the  sane 
length;  it  is  shifted  so  as  to  preserve  its  sign,  and 
effect  multiplication  (or  division)  by  a  power  ox  two. 
Digits  shifted  off  either  end  are  lost. 


4.2.5 _ Character-string  operations 

Concatenation  (binary),  denoted  by  •'ll"  and  ".CONCAT.";  e.g. , 
"A  II  B",  "A  .CONCAT.  B".  Both  operands  must  be  of 
character-string  nodes:  'CHARACTER'  or  'VARYING  CHARACTER'. 
The  result  is  a  value  —  the  1st  operand  value  concatenated 
with  (followed  by)  the  2nd  operand  value.  The  length  of 
the  result  is  the  sun  of  the  (current)  operand  lengths. 
The  result  node  is  'CHARACTER'  if  both  operands  are  of 
•CHARACTER*  node,  and  'VARYING  CHARACTER'  otherwise. 


4.2.6  Selection  operations 

Selection  by  conponent  nane  (binary),  denoted  by  "$";  e.g. , 
"A  $  8NAME".  The  1st  operand  nust  be  a  reference  of  a 
structured  node  allowing  named  components  ('COMPONENT 
STRUCTURE'  or  'ALTERNATE') .  The  2nd  operand  nust  be  a 
component  nane  which  names  sone  conponent  of  the  1st 
operand.  The  result  is  a  reference  of  the  named  component; 
its  mode,  length,  and  other  attributes  are  obtained  from 
the  subtype-decln  part  of  the  component  declaration. 

Selection  by  subscript  value  (n-ary) ,  denoted  by  ".TAG."  or 
implied  by  the  syntactic  context  "  expression  (  ";  e.g., 
"A  .TAG.  I",  "A  (I)  ",  " A  (I, J)  " ,  "  (EXP)  (K)  ".  The  1st  operand 
must  be  a  reference  of  a  structured  node  allowing  numbered 
components  ('FIXED  ARRAY',  'VARYING  ARRAY',  • COMPCNENT 
STRUCTURE',  'ALTERNATE').  The  remaining  operands  must  have 
values  convertible  to  integers  (arithmetic  or  'BIT'  modes) , 
and  are  interpreted  as  an  ordered  set  of  subscript  values. 

If  the  1st  operand  has  'COMPONENT  STRUCTURE'  or 
'ALTERNATE*  mode,  there  must  be  exactly  one  subscript.  The 
integer  subscript  value  must  be  at  least  1  and  not  greater 
than  the  number  of  declared  components.  If  the  subscript 
expression  is  a  constant  (with  possible  sign) ,  then  the 
mode  and  other  attributes  of  the  result  are  obtained  from 
the  subtype-decln  in  the  component  declaration.  If  the 
subscript  is  not  a  constant,  the  attributes  of  the  result 
cannot  be  synthesized  by  the  compiler;  then  the  attributes 
are  considered  "undeclared",  and  are  usually  attached  with 
an  .ASTYPE.  or  .ASTYPEOF.  declaration. 

If  the  1st  operand  has  an  array  mode,  there  must  be 
exactly  as  many  subscripts  as  the  array's  dimension 
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attribute  specifier.  Each  integer  subscript  value  Bust  be 
in  the  range  defined  by  the  corresponding  lover  and  upper 
subscript  bounds;  otherwise  the  result  is  undefined.  The 
node  and  other  attributes  of  the  result  are  obtained  froa 
the  subtype-decln  in  the  siode  declaration  of  the  array. 

In  any  case,  the  result  is  a  reference  of  the  selected 
componen  t. 

Substring  selection  (ternary)  ,  denoted  by  ".TAG."  or  implied  by 
the  syntactic  context  "  expression  (  e.g.,  "CH(I)", 

"A  .TAG.  (I,J)",  "CH(I,J)".  The  1st  operand  Bust  have  a 
character-string  mode  ('CHARACTER'  or  'VARYING  CHARACTER'), 
and  Bay  be  either  a  reference  or  a  value.  Its  value  is  the 
character  string  (possibly  null)  in  which  a  substring  is  to 
be  selected.  Let  S  denote  the  string  and  let  £  be  the 
current  string  length.  The  2nd  and  3rd  operands  Bust  have 
values  convertible  to  integers.  Let  .j  and  &  be  the  integer 
values  of  the  2nd  and  3rd  operands,  respectively;  these  are 
interpreted  as  the  position  and  length  of  the  desired 
substring.  We  require  that  j>0  and  k20.  The  3rd  operand 
may  be  onitted;  if  it  is,  k=1  is  assumed.  The  3rd  operand 
may  also  be  the  special  symbol  *  ;  if  it  is,  k«a-j+1  is 
assumed.  If  j>m  or  if  j+k-1  >  m,  the  operation  is 
undefined.  otherwise  the  substring  is  S(j)  —  S( j+k-1). 
The  result  is  a  reference  or  value  according  as  the  1st 
operand  is  a  reference  or  value.  If  the  3rd  operand 
expression  is  an  integer  constant  or  onitted,  then  the 
result  is  'CHARACTER'  node  with  length  k;  otherwise  the 
result  is  'VARYING  CHARACTER*  node,  with  current  length  k. 


4.2.7 _ Procedure-call  operation 


Procedure-call  (n-ary)  is  denoted  by  e.g. ,  "F.X", 
"G.  (X,Y) " .  The  1st  operand  must  have  either  'ENTRY  POINT'  or 
'ENTRY  NAHE'  mode;  it  may  be  either  a  reference  or  value.  This 
operand  identifies  a  procedure  entry  point  to  be  called.  The 
remaining  operands  (if  any)  may  be  references  or  values;  they 
are  the  actual  parameters  to  be  passed  to  the  procedure.  Those 
parameters  which  are  values  are  held  in  temporary  storage,  and 
are  replaced  by  references  of  their  allocated  storage. 

There  are  also  two  phrase  keywords  which  nay  appear  after 
the  actual  parameter  list;  these  are  'ERROR  EXIT'  and  'SAVE 
CODE',  and  are  used  to  examine  a  possible  auxiliary  "return 
code"  from  the  called  procedure.  'ERROR  EXIT'  introduces  a  list 
of  labels;  the  labels  denote  places  to  "go  to"  for  various  non¬ 
zero  return  code  values.  'SAVE  CODE'  must  be  followed  by  an 
'INTEGER  LONG'  variable;  it  is  used  to  save  the  return  code  for 
later  reference. 
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Examples: 

BANDOfl. 

F.  (X) 

SOBT.  (N, VA,VB) 

GETLIME.  (LINE  'ERROR  EXIT'  LI) 

FN.(P,Q  'ERROR  EXIT'  L1,L2  'SAVE  CODE'  RC) 

The  procedure-call  proceeds  as  follows: 

(1)  Evaluate  the  1st  operand  expression  to  deteraine  the 
desired  entry  point. 

(2)  Evaluate  the  operand  expressions  for  the  actual  parameters. 
Convert  each  'ENTRY  POINT'  result  to  'ENTRY  NAME*  node,  and 
assign  the  current  environment  information.  (The  entry 
point  named  must  be  owned  by  the  current  block,  but  this 
cannot  be  checked  by  the  compiler.)  Disallow  'TRANSFER 
POINT'  aode.  Allocate  temporary  storage  for  those  operands 
which  are  values,  and  let  the  actual  parameter  list  be 
references  of  the  operands. 

(3)  Save  the  current  program  position  and  environment 

information,  and  transfer  control  to  the  procedure  entry 
point,  in  such  a  way  that  execution  of  a  ' RETURN '  will 
cause  control  to  be  resumed  at  (4)  below. 

(4)  If  a  'SAVE  CODE*  phrase  appears  in  the  procedure  call, 
assign  the  return  code  to  the  integer  variable.  (See 
Section  14  for  implementation.) 

(5)  If  'ERROR  EXIT*  appears  in  the  procedure  call,  examine  the 
return  code.  If  the  return  code  is  zero,  proceed  to  (6) 
below;  otherwise,  transfer  control  to  the  statement  named 
by  the  k-th  label  if  the  return  code  is  kj.  k=1,2,...  If 
the  return  code  exceeds  the  number  of  labels,  the  action  is 
undefined. 

(6)  The  result  is  the  value  returned  from  the  procedure;  its 
attributes  are  obtained  from  the  subtype-decln  part  of  the 
1st  operand  declaration. 


NAD/I  provides  a  number  of  operations  to  convert  a  value  of 
one  node  to  a  corresponding  value  of  another  node.  In  general, 
the  result  is  a  new  value,  obtained  by  copying  and  transforming 
the  original  value.  Host  conversions  are  implied  by  context  and 
automatically  generated  by  the  compiler.  However,  the 
operations  are  all  binary,  and  are  denoted  as  a  class  by  the 
".CONV."  operator;  e.g.,  "A  .CONV.  ('INTEGER')".  This  operator 
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requires  a  parenthesized  decln-string  as  its  2nd  operand 
expression. 

The  pre-defined  conversions  are  described  below.  In  the 
context  table,  each  position  represents  a  potential  conversion 
from  the  row  node  to  the  column  node.  A  "0"  entry  neans  that 
the  conversion  is  defined  and  is  trivial;  other  entries  refer  to 
the  text  following  the  table. 


".CONV. " 

1  FL  | 

A  A 

FS  | 

IL  | 

IS  | 
1 

PK 

1 

BT 

! 

| 

BL 

1  t 

1 

1 

"T 

FL 

1  o  | 

A  I 

f  j 

P  1 

F 

1 

l 

FS 

(  A  | 

0  I 

p  1 

F  1 

F 

1 

l 

IL 

1  E  | 

E  1 

o  1 

B  I 

D 

1 

l 

IS 

I  E  1 

E  I 

B  I 

0  I 

D 

l 

1 

PK 

1  E  | 

E  1 

C  | 

C  | 

0 

l 

l 

BT 

I  i 

1 

G  | 

G  | 

1 

0 

1 

H 

BL 

1  1 

1 

1 

1 

l 

0 

(A)  The  value  is  extended  (or  truncated)  on  the  low-order  end 
to  the  new  length. 

(B)  The  value  is  extended  (or  trancated)  on  the  high-order  end 
to  the  new  length.  Truncation  of  a  value  not  representable 
in  the  new  node  will  produce  an  erroneous  result. 

(C)  The  value  is  converted  fron  decinal  to  binary,  and 

truncated  (if  necessary)  to  the  new  length.  Infornation 
may  be  lost  if  the  value  is  too  large. 

(D)  The  value  is  converted  fron  binary  to  decinal;  the  result 
is  'PACKED' (16) . 

(E)  The  value  is  converted  to  binary  (if  necessary)  ,  then  to 
un-noraa lized  floating-long,  then  nornalized,  and  finally 
truncated  (if  necessary)  to  the  new  length. 

(F)  The  value  is  extended  (if  necessary)  ,  to  floating-long, 
then  de-normalized  to  align  the  integral  part,  then 
converted  to  integer-long,  and  finally  (if  necessary) 
truncated  or  converted  to  decinal. 

(G)  The  bit-string  value  is  interpreted  as  an  unsigned  binary 
integer,  and  extended  with  zeros  (if  necessary)  on  the 
high-order  end  to  the  new  length. 

(H)  The  bit-strinq  is  interpreted  as  'FALSE'  if  all  bits  are  0, 
and  as  'TRUE*  otherwise. 
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JLs-iLri _ AS£i2flient_operations 

Assignee nt  of  a  value  is  a  binary  operation,  denoted  by 
;  e.g. ,  "A  :=  B",  "VAR  :=  100".  The  1st  operand  aust  be  a 
reference  other  than  a  label,  and  not  of  'TRANSFER  POINT'  or 
'ENTRY  POINT'  aode.  The  2nd  operand  nay  be  a  reference  or  a 
value. 


The  1st  operand  expression  is  evaluated  to  produce  a 
reference.  Then  the  2nd  operand  expression  is  evaluated.  The 
value  of  the  2nd  operand  is  converted  (if  necessary)  to  the  node 
and  storage-layout  attributes  of  the  1st  operand,  and  replaces 
the  value  identified  by  the  1st  operand.  The  result  is  a 
reference  of  the  1st  operand. 

Assignaent  is  pre-defined  for  the  following  contexts;  sone 
notes  are  provided  to  fill  in  details  which  are  not  obvious. 

(Arithaetic  aode,  Arithaetic  aode) 


(BL,  BL)  'BOOLEAN' 

(BT,  BT)  'BIT'  —  extend/truncate  on  left. 

(BT,  BL)  Set  all  bits  1  ('TRUE')  or  0  ('FALSE'). 

(BT,  IL)  Express  integer  as  bit  string. 

(BT,  IS)  Express  integer  as  bit  string. 

(C,  C)  'CHARACTER';  extend/truncate  on  right. 

(VC,  VC)  'VARYING  CHARACTER' 

(VC,  C)  Set  current  length  *  fixed  length. 

(C,  VC)  Extend/truncate  on  right. 


(PT,  PT)  'POINTER' 

(EN,  EN)  'ENTRY  NAHF' 


(•ENTRY  NAHE1,  'ENTRY  POINT')  The  entry  nane  value  points 
to  the  entry  point,  and  the  current  environaent 
inf or nation  is  assigned.  The  entry  point  nust  be 
owned  by  the  current  block;  this  cannot  (in  general) 
be  checked  by  the  coapiler. 


(•ENTRY  NAHE1,  'TRANSFER  POINT')  The  entry  nane  value 
points  to  the  transfer  point;  the  environaent 
inforaation  is  undefined.  The  resulting  value  can  be 
used  in  a  'GO  TO'  ,  but  not  in  a  procedure  call,  nor  as 
an  actual  paraneter. 
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4.2.10  Other  operations 

Length  of  a  value  (unary),  denoted  by  ".LN.";  e.g.,  "• LN .  B". 
The  operand  nay  be  a  reference  or  value  of  any  mode  other 
than  • TRANSFER  POINT*  or  *  ENTRY  NAME'.  The  result  is  a 
value  of  ‘INTEGER  LONG*  mode  —  the  "length”  of  the  operand 
value.  For  'VARYING  CHARACTER*  operands,  the  "length'*  is 
the  current  length  of  the  character  string. 

Association  of  storage  (binary),  denoted  by  ".ALLOC.**;  e.g. , 
"A  .ALLOC.  B".  The  1st  operand  expression  must  be  a 
variable  of  based  or  formal  parameter  storage  class,  and  of 
any  mode.  The  2nd  operand  must  be  a  reference  or  value  of 
'POINTER'  mode.  The  storage  reference  determined  by  the 
pointer  value  is  associated  with  the  variable,  so  that  the 
variable  now  has  this  reference  as  its  result.  If  the 
pointer  value  equals  'NULL  PT',  then  the  variable  becomes 
"not  allocated",  and  its  result  is  undefined. 

Create  pointer  (unary),  denoted  by  ".PT.";  e.g.,  ".PT.  B".  The 
operand  must  be  a  reference  (of  any  mode) .  The  result  is  a 
value  of  'POINTER'  mode  corresponding  to  the  reference; 
i.e.,  a  pointer  to  the  operand. 

Indirect  reference  (unary),  denoted  by  ".IND.";  e.g.,  ".IND.  E". 
The  operand  must  have  'POINTER'  mode;  its  value  must  be  a 
non-null  pointer.  The  result  is  the  reference  determined 
by  the  pointer;  the  mode  and  storage  layout  attributes  are 
obtained  from  the  subtype-decln  part  of  the  pointer 
declaration. 

Create  a  pointer  constant  (unary;  compile-time  only) ,  denoted  by 
". PTCON. ";  e.g.,  ".PTCON . (B) ".  The  operand  expression  must 
be  an  identifier,  and  must  be  enclosed  in  parentheses.  The 
result  is  a  constant  of  'POINTER'  mode  corresponding  to  the 
reference  of  the  identifier. 

Create  an  entry-name  constant  (unary;  compile-time  only)  , 
denoted  by  ".ENCON.";  e.g.,  ". ENCON.  (B) " .  The  operand 

expression  must  be  an  identifier,  and  must  be  enclosed  in 
parentheses.  The  result  is  a  constant  of  'ENTRY  NAME' 
mode;  it  points  to  the  entry  point  named  by  the  identifier, 
but  it  does  not  carry  environment  information. 
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4.3  Operator  Precedence  and  Class 

HAD/I  operators  are  symbols  which  denote  operations  (see 
Sec.  2.2.4).  The  operations  themselves  are  described  in  the 
preceding  subsection;  we  now  describe  the  syntactic  properties 
of  operators. 

Every  operator  has  a  syntactic  class  and  a  precedence 
level.  The  syntactic  class  tells  how  the  operator  is  written 
with  respect  to  its  operand  expressions; 

Prefix;  before  its  operand  expression  (s) . 

Postfix;  after  its  operand  expression (s) . 

Infix-left;  between  its  operand  expressions; 

associates’”  left-to-right  with  operators  of 
equal  precedence. 

Infix-right;  between  its  operand  expressions; 

associates  "T  right-to-left  with  equal- 
precedence  operators. 

An  operator's  precedence  level  (precedence)  determines  its 
syntactic  "binding  strength"  relative  to  other  operators.  An 
expression  appearing  between  two  operators  is  "bound"  as  an 
operand  expression  to  one  operator  or  the  other  as  follows: 

If  the  operators  have  different  precedence  levels,  the 
expression  is  bound  to  the  higher-level  operator. 

If  the  operators  have  the  same  precedence  level,  they 
must  be  either  both  infix-left  or  both  infix-right. 

The  expression  is  bound  to  the  left  operator  if  they 
are  infix-left,  and  to  the  right  operator  if  they  are 
i’fix-right. 

To  avoid  the  possibility  of  ambiguous  constructions,  a  rule  is 
applied  to  all  operators,  both  pre-defined  and  user-defined: 

All  operators  having  the  same  precedence  level  must 
have  the  same  syntactic  class. 

Also,  parentheses  may  be  used  as  grouping  marks  in  the  usual 
way:  one  or  more  expressions  (separated  by  commas)  may  be 
enclosed  in  parentheses,  forming  a  "group"  of  expressions  which 
is  bound  as  a  unit.  This  is  often  necessary  in  denoting  n-ary 
operations;  e.g.,  ARRAY  .TAG.  (I,J,K)  . 
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The  folldwing  table  shows  the  pre-defined  operators, 
arranged  from  highest  precedence  level  to  lowest  precedence 
level,  and  the  syntactic  class  at  each  level.  (There  are  no 


pre- 

defined 

postfix 

operators.) 

INFIXI INFIX | 
LEFT| RIGHT| 

1 

PREFIX) 

OPERATORS 

X 

1  1 

1 

a 

•  TAG*  •  5) 

.CONV. 
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1  1 

i 

x  1 
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X 
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1 
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4,4 _ Syntax  o f  Expressions 

The  set  of  HAD/I  operators  is  extensible,  and  new  operators 
may  introduce  new  precedence  levels  between  the  existing  levels. 
Therefore  we  must  resort  to  uncor ventional  methods  to  present  a 
syntax  which  will  describe  all  possible  expressions. 

Let  precedence  levels  be  denoted  by  special  variables:  i, 
j,  k,  1.  Let  notations  such  as  ">j"  mean  "any  level  higher  than 
level  j".  Also  let  the  notation  "i°j"  mean  "the  lower  of  levels 
i  and  j" ,  and  let  "+"  denote  the  highest  possible  level. 

Associate  with  syntax  variable  "exp"  (for  "expression")  two 
precedence  level  parameters:  the  precedence  "viewed  from  the 
left",  and  the  precedence  "viewed  from  the  right".  Thus,  the 
syntax  notation  "exp(i,j)"  will  denote  an  occurrence  of  an  "exp" 
with  precedence  levels  i  and  j  as  viewed  from  the  left  and 
right,  respectively. 


Also  define  syntax  variables  for  the  operators,  with  their 
precedence  levels  as  parameters.  Thus,  " prefix-op (j) "  denotes 
an  occurrence  of  a  prefix  operator  with  precedence  level  j,  and 
similarly  for  postf ix-op ( j) ,  inf ix-L-op  (j)  ,  and  inf ix-R-op ( j) . 


In  this  extended  notation,  we  now  define  the  formal  syntax 
of  HAD/I  expressions.  An  example  rule  is  explained  below. 


exp  (+,♦) 


=  constant  |  identifier  |  embedded-statement 
I  (  list  ,  exp  ) 


exp  (♦,  j°k) 
exp  (i°j,+) 


=  pref  ix-op  (j)  exp(>j,k) 

=  exp (i, > j)  postfix-op (j) 
exp(i°j»j°h)  =  exp  (i,  >  j)  inf  ix-L-op  (j)  exp(>j,k) 
exp(i°j,j°k)  =  exp (i, > j)  infix-R-op ( j)  exp(£j,k) 
expression  =  exp 


For  example,  the  syntax  rule 


exp  (♦,  j°k)  =  pref  ix-op  (j)  exp(>j,k) 

means:  "A  prefix  operator  with  precedence  level  j,  followed  by 
an  expression  with  any  left-precedence  greater  than  j  and  any 
right-precedence  k,  forms  a  composite  expression  with  left- 
precedence  "highest"  and  right-precedence  egual  to  the  lower  of 
j  and  k".  Referring  to  the  operator  table  in  Section  4.3,  we 
see  that  this  rule  can  combine  ".NEG."  and  "A**E"  to  get 
".NEG. A**B" ,  but  it  cannot  combine  ".NEG."  and  "A+B"  to  get 
".NEG.A+B". 
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Section  5:  Statements 


5. 0 _ Introduction 

Each  non-empty  statement  in  the  language  falls  into  one  of 
five  classes:  (i)  simple  statements,  (ii)  compound  statements, 
(iii)  prefix  statements,  (iv)  list  statements,  and  (v) 
declaration  statements.  Unless  otherwise  indicated  by  the 
interpretation  of  a  statement,  its  successor  (at  run  time)  is 
the  statement  written  immediately  after  it.  Two  adjacent 
statements  are  always  separated  by  a  semicolon,  but  the 
semicolon  is  not  a  part  of  the  statement  it  follows. 


Empty  statements 

A  statement  can  also  be  "empty"  (consisting  of  no  symbols) . 
An  empty  statement  specifies  no  computation;  it  can,  however,  be 
labeled. 

Syntax:  statement  =  empty 


Labeled  statements 

Any  statemc.it  can  be  labeled,  by  prefixing  it  with  an 
identifier  and  a  colon;  the  resulting  form  is  itself  a 
statement.  Labels  on  declaration  statements  are  permitted. 

Syntax:  statement  =  identifier  ;  statement 


Simple  statements 

The  simple  statements  have  two  general  forms* 

(1)  a  single  expression; 

(2)  a  simple-statement  keyword,  possibly  followed  by  one  or  more 

expressions  separated  by  commas  or  phrase  keywords  (a 
"phrase  list"). 

In  case  (1)  ,  the  expression  is  simply  evaluated;  it  has  no 
effect  other  than  the  effects  produced  under  the  rules  of 
expressions;  the  result  is  not  saved.  Such  a  statement  is 
usually  an  assignment,  an  .ALLOC,  expression,  or  a  procedure 
call. 


In  case  (2) ,  the  exact  statement  form  is  determined  by  the 
statement  keyword  and  its  associated  statement  definition.  For 
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each  statement  keyword ,  there  is  a  fixed  number  of  expressions 
which  may  follow. 

Syntax:  statement  =  expression 

|  simple-stmt-keyword  [phrase-list] 

phrase-list  =  list  {  ,  |  phrase-keyword  }  expression 

Examples:  A  :=  B 

FN.  (X, Y) 

'GO  TO'  LB 


Com£2un4_statements 

A  compound  statement  is  simply  a  sequence  of  statements 
separated  by  semicolons  and  bracketed  by  a  compound-statement 
keyword  and  an  end  keyword.  The  resulting  form  is  itself  a 
statement. 

Syntax: 

statement  =  compound-stmt-keyword  stmt-seq  end-keyword 
stmt-seq  =  li§t  ;  statement 


Example: 

'BEGIN*  A  :=  B;  B  :=  C  'END* 


Pie  j[ix_  statements 

Each  prefix  statement  form  begins  with  a  "prefix  part", 
consisting  of  a  prefix-statement  keyword  and  a  fixed-length 
phrase  list,  such  as: 


or 


'IF'  exprn 

'FOR'  desig  :=  exprn,  exprn,  exprn 


For  each  such  prefix  part  there  are  two  forms  of  the  prefix 
statement:  (1)  the  prefix-part  followed  by  a  comma  and  a  single 
statement  (the  "short  form") ;  (2)  the  prefix-part,  possibly 
followed  by  a  semicolon  and  a  statement-seguence,  and  ending 
with  a  matching  end  keyword  (the  "long  form") .  The  particular 
end  keyword  which  "matches"  depends  upon  the  statement  keyword; 
however,  the  symbol  'END'  is  a  general-purpose  end  keyword  which 
may  be  used  to  end  any  long-form  prefix  statement. 

Prefix  statements  and  compound  statements  may  be  properly 
nested;  each  occurrence  of  a  long-form  prefix  statement  reguires 
its  own  end  keyword. 
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Syntax: 

statement  =  prefix-stmt-keyword  phrase-list 
{  ,  statement 

|  [;  stmt-seq]  end-keyword  } 


Short-form  example: 

•IF*  A  >  B,  B  :=  A 
long-form  examples: 

(1)  *  FOB '  I  :=  1,  1,  I  >  N; 

V{I)  :  =  I  ♦  1;  W{I)  :=  0  1 ENDFOR' 

(2)  'FOB*  J  :=  0,  1,  C(J)  =0  •  ENDFOR' 

Note  that  in  example  (2) ,  the  prefix  is  followed  immediately  by 
the  end  keyword;  the  "scope"  of  the  statement  is  empty. 


List  statements 

A  list  statement  consists  of  a  prefix  followed  by  a  varying 
number  of  expressions.  The  prefix  begins  with  a  statement 
keyword;  the  form  of  the  rest  of  the  prefix  depends  upon  the 
particular  statement  keyword. 

Examples: 


•WRITE'  ("3I7*",1) ,  J,  K,  L 
•PRESET'  A:  =  3,  V(1):=1,  V(3):=3 
•LIST'  X  (I)  ,  Y  (I)  ,  Z  (I) 

Declaration  statements 

Declaration  statements  have  two  general  forms:  the 

'DECLARE'  statement  and  the  "inverted"  declaration  statements. 
They  have  a  special  syntax,  described  in  Sections  3.6  and  5.9. 

Examples: 


'DECLARE*  A  'INTEGER',  (B,C,D)  'FLOATING' 
•BOOLEAN'  SI,  S2,  S3 
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5. 1 _ Expression  Statemegts 

An  expression  is  also  a  simple  statement.  Execution  of  an 
"expression  statement"  consists  of  evaluating  the  expression  and 
ignoring  the  result. 

Notice  that  expressions  include  assignments  and  procedure 
calls. 

Examples:  V  :=  A  +  B 

BV  .ALLOC.  (.PT.  V) 

SORT.  (N,  A 1 ,  A2,  KEY) 

A  +  B 
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5^2 _ lhe__l££_.I2  !_.§tate  lent 

This  {simple)  statement  has  the  fotm: 

•GO  TO'  S 

Here  S  may  be  any  label  or  entry  point  or  any  expression  in 
entry  name  mode.  Execution  of  this  statement  causes  the 
computation  to  continue  at  the  statement  whose  label  is  the 
value  of  3. 

Examples: 

•GO  TO'  L00P4 

•GO  TO*  ENTRYB 

If  the  value  of  S  is  an  entry  point  (i.e.,  if  it  has 
appeared  in  a  ' PROCEDURE'  definition  or  has  been  declared  'ENTRY 
POINT')  a  'GO  TO'  statement  may  be  used,  even  if  the  statement 
it  labels  is  not  in  the  same  program.  In  addition,  for  entry 
points  one  can  get  parameter  substitutions  at  the  same  time  by  a 
'WITH'  clause  containing  a  parenthesized  list  of  actual 
parameters: 

•GO  TO*  S  'WITH'  (E  ( 1)  ,  E<2),  — ,  E  (N)  ) 

where  the  expressions  E(i)  agree  in  node  and  length  with  the 
formal  parameters  declared  for  the  entry  point  designated  by  S. 
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5.3  The  'IF'  statement 

This  (prefix)  statement  has  a  prefix  of  the  fora 
•IF*  bool-exprn 

where  "bool-exprn"  is  an  expression  of  Boolean  mode.  Thus, 
examples  of  the  short  fora  are: 

'IF*  X  >  I,  'GO  TO*  SI 

'IF'  A  =  B  6  I  =  J,  Q  :=  8  ♦  .IBS.  T 

The  general  long  fora  is: 

'IF'  bool-exprn  ;  stat-seg 

(  ljst  (;  'OB  IF'  bool-exprn  ;  stat-seq)  ] 

[;  'OR  ELSE';  stat-seg]  ' ENDIF' 

stat-seq  =  list  ;  statement 

The  'OR  IF'  groups  are  optional;  any  number  of  them  may  be 

used.  The  'OR  ELSE*  group  is  likewise  optional,  but  only  one 

'OR  ELSE'  may  appear  in  a  given  long-fora  'IF*  statement.  'OB 
ELSE'  may  be  abbreviated  as  'ELSE'. 

The  effect  of  this  statement  is  to  select  for  execution  one 
of  the  statement  sequences  "stat-seg".  Specifically,  the  first 
Boolean  expression  "bool-exprif"  from  the  left  found  to  be  true 
causes  the  execution  of  the  immediately  following  "stat-seg". 
Here,  'OB  ELSE*  can  be  interpreted  as  "always  true",  i.e. ,  as 
•OR  IF*  'TBUE'. 

Example  long-form  'IF*  statements: 

'IF'  A  =  B;  S  :*T  ♦  J;  I  :*  1-1;  'GO  TO'  H  ' END  IF' 

'IF'  C  <  S;  I  :*  lei;  'OB  IF'  Q  >  S;  I  :*  1-1; 

'OR  ELSE';  'GO  TO'  ST  ' ENDIF' 

'IF'  J=0;  0  ( J)  :  =  1;  'ELSE';  D(J):*D(J)+1  '  ENDIF' 
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The  'FOR*  statement  is  a  prefix  statement  for  specifying 
iterations.  The  statement- keyword  and  phrase-list  are: 

'FOB'  desig  :=  eiprn2,  exprn3,  exprnU 

where  "desig"  produces  a  reference  of  the  iteration  value, 
"exprn2"  gives  the  initial  value,  "exprn3"  gives  the  increment 
value,  and  "exprnh"  is  a  Boolean  expression  to  test  for 
completion.  The  nodes  of  exprn2  and  exprn3  aust  be  such  that 
"desig  :  =  exprn2"  and  "desig  :  =  desig  ♦  exprn3"  are  legitimate 
expressions.  The  end-keyword  for  the  'FOR'  statement  is 
•ENDFOR' . 

The  interpretation  of  the  'FOR'  statement  with  scope  "stmt- 
seq"  is  as  if  it  had  been  written  as  follows: 

desig  :=  (exprn2)  ; 

L:  •  IF'  -»  (exprn4)  ; 

stmt-seq; 

desig  (desig)  ♦  (exprn3)  ; 

•GO  TO'  L 
• ENDIF ' 

where  "L"  represents  a  local  label.  In  other  words:  the 
designator  is  evaluated  to  get  the  reference  for  the  iteration 
value;  the  iteration  value  is  initialized  to  the  value  of 
exprn2;  as  long  as  the  value  of  exprn4  is  'FALSE',  the  scope 
stmt-seg  is  executed,  followed  by  incrementing  the  iteration 
value  by  the  latest  value  of  exprn3.  Mote  that  if  exprn4  is 
'TRUE'  on  the  first  test,  the  scope  is  not  executed  at  all. 

Examples: 

(1)  'INTEGER'  J,N; 

SUM  :=  0. ; 

•FOR'  J  :=  N,  -1,  J  <  0,  Y  :=  SUM  *  X  ♦  C(J) 

(2)  'FOR'  I  1,  1,  CH (I)  =  |  I  >  K,  ; 

•IF'  I  >  K,  'GO  T0»  NOCOHHA 

(3)  'FOR'  I  :=  1,  1,  I  >  H; 

J  :  =  0; 

•FOP'  S(I)  :=  0,  B  (I, J)  ,  (J  :=  J  ♦  1)  >  M 
• ENDFOR' 

'  ENDFOR' 
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5.5  The  * FOB  VALUES*  Statement 

The  'FOB  ¥ ALOES'  statement  is  another  prefix  statement  for 
specifying  iterations.  The  prefix  has  the  form: 

'FOB  VALDES'  desig  :=  (  list  ,  exprn  ) 

where  "desig"  designates  the  iteration  value,  and  each  "exprn" 
in  the  list  has  a  mode  such  that  "desig  :  =  exprn"  is  a  valid 
assignment.  The  end  keyword  for  the  'FOB  VALDES'  statement  is 
•ENDFOB* . 

The  interpretation  of  the  'FOB  VALDES'  statement  is  as 


follows: 

(D 

Evaluate  "desig"  to  determine  the  iteration  value. 

(2) 

Set  (local  variable)  i  equal  to  1. 

(3) 

Evaluate  the  i-th  "exprn"  in  the  list,  and  let 
(with  the  appropriate  conversion,  if  necessary) 
iteration  value. 

its  value 
replace  the 

(4) 

Execute  the  scope  (statement  or  statement  sequence) . 
normal  sequencing  proceed  to  (5) . 

Let 

(5) 

If  i  is  equal  to  the  number  of  "exprn"s  in  the 
'FOR  VALDES'  statement  is  finished;  otherwise, 
by  1  and  go  back  to  (3) . 

list,  the 
increment  i 

Examples: 

(D 

'FOB  VALDES'  K  :»  (0,1,5),  A  (K)  :*  0 

(2) 

'FOB  VALDES'  CH  :=  ("A",  "X",  "0",  "1"); 

J  :=  SCAN.  (LINE,  CH)  ; 

'IF'  CH  *  "X",  JX  :*  J 
'ENDFOB' 

Part  I  —  Description  of  the  HAD/I  Language 


92 


Section  5:  Statements 


5.6  The  ■VALUE*  Statement 

This  (prefix)  statement  has  a  prefix  of  the  form 
•VALUE*  V  :=  E 

where  V  is  a  designator,  and  E  is  an  expression  such  that  the 
assignment  V  :=  E  is  legitimate.  A  shorter  form  of  the  prefix 
is 

•VALUE*  V 

in  which  case  the  initial  value  of  V  is  the  value  it  had  just 
before  execution  of  the  'VALUE'  statement.  The  end  keyword  is 
•END  VALUE' . 

An  example  of  the  short  form  is: 

•VALUE'  S  :=  0.,  'FOR'  I  :=  1,1,1  >  N, 


S  :=  S  ♦  A  (I) 

An  example  of  the  long  form  is: 


•VALUE*  TRACE  :=  0.; 
•FOR*  I  :=  1,1,1  >  N; 
•FOR*  J  :=  1,1, J  >  N; 
C(I,J)  :=  o.; 


•FOR'  K  :=  1,1, K  >  N, 

C(I,J)  :=  C(I,J)  ♦  A  (I,K)*B  (K,J)  'END  FOR*  ; 
TRACE  :=  TRACE  ♦  C(I,I)'END  FOR'  'END  VALUE' 


The  interpretation  of  the  'VALUE'  statement  is  that  a  value 
is  produced  for  V  as  a  result  of  the  execution  of  the  scope. 
This  prefix  statement  may  now  be  enclosed  in  parentheses  and 
used  as  an  embedded  statement,  since  it  has  produced  a  value. 
The  expression  E  in  the  prefix  is  an  initial  value  for  V.  Thus, 
in  the  long-form  example  above,  if  N  =  0,  then  none  of  the  scope 
would  actually  be  executed  (since  I  >  N) ,  and  the  value  produced 
(which  in  any  case  is  the  final  value  of  TRACE),  is  0. 
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5.7 _ Procedures 


5.7.1 _ The  1 PBOCEDURE1  Statement 

This  (prefix)  statement,  called  a  procedure  definition,  has 
the  following  syntax: 

procedure  =  proc-prefix;  list  ;  statement  'END  PROCEDURE' 
proc-prefix  =  'PROCEDURE'  list  ,  entry-spec 
entry-spec  =  identifier-list  [  .  ][f ormal-parameters  ] 
formal-parameters  =  (  list  ,  identifier  ) 

A  typical  prefix  would  be: 

•PROCEDURE'  (J,K,L)  .  (X,Y,Z,W) 

where  the  first  part  specifies  entry  points  for  the  procedure, 
i.e.,  J,  K,  and  L,  and  the  second  part  specifies  formal 
parameters  to  be  associated  with  each  of  those  entry  points.  If 
there  is  only  one  entry  point,  the  parentheses  around  it  may  be 
omitted.  If  there  are  no  formal  parameters,  the  second  pair  of 
parentheses  may  be  omitted.  The  period  is  always  optional  in  a 
procedure  prefix.  Thus,  the  prefix 

•PROCEDURE'  (F,G)  .  (X)  ,  H.  (X,Y),  L. 

specifies  that  F  and  G  are  entry  points  with  formal  parameter  X, 
that  H  is  an  entry  point  with  parameters  X  and  Y,  and  that  L  is 
an  entry  point  with  no  parameters. 

The  short  form  of  the  'PROCEDURE'  statement  differs 
somewhat  from  the  usual  short  form;  it  looks  much  like  an 
assignment  expression: 

procedure-short  = 

'PROCEDURE'  identifier  [.]  formal-parameters 
:=  expression 

where  "expression"  is  any  expression  (possibly  an  embedded 
statement) .  As  an  example  we  have: 

•PROCEDURE'  REN.  (A , B)  :=  A  -  (A/B)  *B 

The  long  form  uses  the  usual  seguence  of  statements, 
separated  by  semicolons  and  terminated  by  the  end  keyword 
•END  PROCEDURE'.  Each  entry  point  occurring  in  the  prefix  may 
appear  as  a  label  on  some  statement  in  the  scope  of  the 
'PROCEDURE'  prefix.  If  no  such  label  appears  on  any  statement. 
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it  is  as  if  the  label  were  on  the  first  executable  statement 
within  the  definition  of  the  procedure.  Procedure  definitions 
may  be  properly  nested  within  other  procedure  definitions. 

Procedures  are  defined  at  compile  time  only;  at  run  time,  a 
procedure  statement  in  a  statement  sequence  behaves  as  an  empty 
statement  in  that  sequence. 


S._1^2 _ Formaj.  Parameters 

The  formal  parameters  of  a  procedure  are  local  variables 
which  are  dynamically  "bound"  to  their  storage  references  when 
the  procedure  is  entered.  All  formal  parameters  declared  in  the 
procedure  prefix  are  variables  usable  throughout  the  procedure 
body.  For  each  formal  parameter,  however,  only  certain  en+ry 
points  cause  it  to  be  bound  —  namely  those  entry  points  whose 
"entry-spec"s  mention  that  formal  parameter. 

A  formal  parameter,  like  any  other  variable,  acquires  mode 
and  storage-layout  attributes.  These  may  be  declared  (within 
the  procedure)  in  any  cf  the  ways  described  in  Section  3. 

Whenever  (at  run  time)  a  procedure  is  entered  at  a  given 
entry  point,  the  formal  parameters  specified  for  that  entry 
point  are  considered  in  the  order  declared  and  bound  to  the 
actual  parameters  (arguments)  received  from  the  calling 
procedure.  There  must  be  at  least  as  many  actual  parameters  as 
formal  parameters;  each  actual  parameter  must  be  a  reference  of 
the  same  mode  as  the  corresponding  formal  parameter.  Generally 
the  storage-layout  attributes  must  also  agree,  but  there  are  a 
few  permissible  exceptions: 

•CHARACTER'  mode:  The  length  of  the  actual  parameter  may  be 
greater  than  the  length  of  the  formal  parameter, 

•VARYING  CHARACTER'  mode:  The  Maximum  length  of  the  actual 
parameter  may  be  greater  than  that  of  the  formal  parameter. 

Array  modes:  The  formal  parameter  may  optionally  be  declared 
with  an  "array-suffix"  in  which  all  the  "bounds"  entries 
are  the  special  symbol  #  .  In  this  case,  the  number  of 
dimensions  of  the  actual  and  formal  parameters  must  agree, 
but  the  bounds  values  and  storage  spacing  of  the  formal 
parameter  are  taken  from  those  of  the  actual  parameter  (cf. 
Section  3.  1.2. 1).  For  example: 

' DCL '  AA  'FIXED  ARRAY'  (#,*)  'FLOATING' 

However,  for  'FIXED  ARRAY'  parameters,  greater  efficiency 
can  often  be  realized  if  the  actual  bounds  are  known  and 
declared  in  the  procedure. 
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5..  7_.  3 _ Proc edure  Returns 

The  execution  of  a  procedure  ends  when  any  of  'RETURN' , 
•  RETURN  TO*,  or  'END  PROCEDURE'  is  executed.  The  foras  of  these 
statements  are: 

(i)  'RETURN'  [expression]  [, return-code ] 

where  return-code  is  the  return  code  value  and  the  expression  is 
the  result  value  of  the  procedure.  If  the  return-code  is 
missing,  a  return-code  of  zero  is  given.  If  a  return-code  is 
given,  it  must  be  a  non-negative  integer  expression.  The 
"return"  is  made  to  the  point  immediately  after  the  last  "call" 
was  executed. 

(ii)  'RETURN  TO'  S 

where  S  is  (1)  a  formal  parameter  of  the  current  procedure,  and 
(2)  has  'ENTRY  NAHE*  mode  and  has  an  actual  parameter  value 
which  is  an  entry  name  for  some  procedure  whose  call  preceded 
the  current  one  in  the  currently  effective  chain  of  "calls". 
For  example,  suppose  procedure  A1  has  called  A2,  which  has 
called  A3,  each  call  passing  as  a  parameter  the  entry  name  1  in 
A 1 .  Then  A3  might  contain  the  statement: 

•RETURN  TO*  S 

where  S  is  a  formal  parameter  for  which  L  is  the  actual 
parameter.  The  next  statement  executed  after  the  'RETURN  TO' 
statement  is  that  denoted  by  the  value  of  L. 

S  also  can  be  a  variable  of  'ENTRY  NAME'  mode  which  has 
been  assigned  a  value  by  means  of  an  assignment  operation 
located  in  the  procedure  which  owns  the  associated  entry  point. 
At  the  time  the  'RETURN  TO'  is  executed,  the  entry  name  variable 
must  have  a  value  which  points  to  a  currently  active  block;  that 
is,  the  environment  information  must  still  be  valid. 

The  execution  of  'END  PROCEDURE'  ,  which  ends  the  scope  of 
a  procedure,  is  permissible  and  is  eguivalent  to  the  execution 
of  'RETURN'  with  no  result  value  and  no  return-code  specified. 
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There  are  several  statements  for  specifying  input/output 
operations;  they  are  mentioned  below.  For  a  complete  treatment 
of  input/output,  refer  to  Section  6;  the  statements  are 
described  in  Sections  6.8  and  6.9. 

•OPEN* 

•CLOSE* 

•READ  DATA* 

•WRITE  DATA' 

•READ* 

•WRITE* 

•READ  UNCONVERTED* 

•WRITE  UNCONVERTED* 
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5.9 _ Declaration  Statements 

The  statements  in  this  section  have  a  purely  "compile-time" 
effect;  at  run  time,  they  act  as  "empty"  statements. 

The  ' DECLARE'  statement  and  the  inverted  declaration 
statements  are  described  in  Section  3.6;  refer  to  that  section. 

The  'DECLARE*  statement  (abbreviation  ' DCL' )  —  Section 

3.6. 1. 

Inverted  declaration  statements  —  Section  3.6.2. 


The  'DECLARE  DEFAULT'  statement  (abbreviation  • DCLD* )  is 
used  to  declare  default  mode  and  storage  class  attributes.  It 
can  also  be  used  to  control  the  scope  of  identifiers  referenced 
but  not  declared. 

Syntax:  'DECLARE  DEFAULT'  decln-string 

This  statement  has  the  same  effect  as  the  statement 
•DECLARE'  'DEFAULT'  decln-string 
which  is  described  in  Section  3.7.2. 

Example:  'DECLARE  DEFAULT'  'INTEGER' 
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The  'BEGIN*  and  'BLOCK'  statements  are  conpoand  statements, 
consisting  of  a  sequence  of  constituent  statements  bracketed  by 
the  compound-statement  keyword  and  an  end  keyword. 


Syntax:  statement  =  'BEGIN'  stmt-seq  'END' 

|  'BLOCK*  stmt-seq  'END' 


The  'BEGIN'  statement  serves  only  to  treat  the  statement 
sequence  as  a  single  statement  —  it  has  no  other  effect. 
Execution  of  a  'BEGIN'  statement  means  execution  of  the 
statement  sequence. 

The  'BLOCK'  statement  is  the  same  as  the  'BEGIN*  statement, 
except  that  it  forms  a  ,new  block  (see  Section  7) .  The  scopes  of 
names  and  declarations  appearing  within  the  'BLOCK*  statement 
are  determined  with  respect  to  this  block. 

Examples: 

'BEGIN'  T  :=  A;  A  :=  B;  B  :=  T  'END' 

•BLOCK' 

•EXTERNAL*  (Bl,B2,B3)  'BOOLEAN'; 

A  NIB  :*  B1  |  B2  |  B3 
•END' 
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5.11  The  1  PRESET  *  Statement 

'PRESET'  is  a  statement  used  to  specify  initial  values  of 
variables.  An  "initial  value"  is  a  value  assigned  to  a  variable 
at  the  time  storage  is  allocated  for  the  variable.  Storage  for 
'STATIC*  variables  is  considered  to  be  determined  at  compile 
time  and  allocated  lust  prior  to  run  time.  Only  'STATIC' 
variables  which  are  not  'EXTERNAL'  nay  be  preset. 

Syntax: 

statement  =  'PRESET'  list  ,  pre-assign 

pre-assign  =  pre-var  {  list  ,  init- value  } 

pre-var  =  variable  [  list  {  (  list  ,  integer  )  }  ] 

init-value  =  const-exprn 
|  replic-exprn 
I  empty 

const-exprn  =  constant 

|  -  constant-exprn 

replic-exprn  =  unsigned-integer  (  list  ,  init-value  ) 


J2&J!£l££l 

of  pre-var:  BCX 

AA<1,-3,2) 

CC  (2,1)  (4)  (17) 

of  const-exprn:  20 

"Haw!" 

-4  a  ('INTEGER  SHORT*) 
.ENCON.  LOGTAN 


of  replic-exprn:  3(1.2,  7,  "AB") 

300(0) 

20(1.0,8  (0.0), 2.0) 


of  preset  statements: 

•PRESET'  A  :=  0,  B  :=  0,  CH  :=  "0123" 
•PRESET'  V(1)  :=  2.,  V  (4)  :=  0.,  V  ( 1 0) 


10. 


'  PRESET '  AB  (1,1)  :=  1,  1,  2,  0,  AB(2,1)  :=  4(0) 


Interpretation 

A  pre-var  specifies  either  a  variable  to  be  preset  or  a 
component  of  a  variable  at  which  presetting  is  to  start.  The 
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list  of  init-vaiue*s  following  the  "s»*»  specifies  a  seguence  of 
constant  values  to  be  pre- as signed  to  the  pre-war.  if  the  pre¬ 
war  is  a  watiable  Of  a  primitive  node,  there  shohld  be  ohly  one 
init-value  in  the  list.  If  the  pre-war  ife  an  array  or 
coaponent-strdcture  variable,  then  presetting  begins  with  the 
1st  coaponent  and  continues  with  successive  coiponents  at  the 
sase  structural  lewel.  If  the  pre-war  is  a  coaponent  of  such  a 
variable,  presetting  begins  with  that  coaponsftt  and  continues  as 
abowe. 

in  empty  init-value  causes  the  corresponding  coaponent  to 
be  skipped  without  being  preset.  A  "replic-exprn*  is  treated  as 
an  abbreviation  for  the  enclosed  list  of  init-value*s  written 
out  "unsigned-integer**  tines.  The  unsigned-integer  bust  be  non¬ 
zero.  For  example, 

2 (  1 #2,  ,4  ) 

is  equivalent  to 


1,2,  ,4,1,2,  ,4. 

The  initial  values  must  have  the  same  mods  as  their 
corresponding  tariables  or  components;  no  autobfctic  Conversion 
is  performed* 
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•DECLARE  CSECT'  and  '  DECLARE  PSECT'  are  both  siaple 
statements  used  to  control  the  naaes  given  by  the  coapiler  to 
sections  of  the  object  nodule. 

Syntax:  statement  =  'DECLARE  CSECT'  identifier 

|  'DECLARE  PSECT'  identifier 

The  coapiler  normally  produces  an  object  program  segregated 
into  tvo  sections:  (1)  a  section  ("csect")  vhich  is  never 
modified  as  the  program  is  run  and  is  "shareable"  by  different 
recursion  levels  in  the  task  and  by  different  tasks  in  the 
operating  system,  and  (2)  a  section  ("psect")  vhich  contains  all 
the  rest  --  the  variable  values  and  non-shareable  text.  The 
programmer  may  occasionally  need  to  specify  the  naaes  given  to 
these  sections. 

These  statements  cause  the  specified  identifier  to  be  used 
as  the  name  for  the  specified  section.  It  is  the  programmer's 
responsibility  to  make  sure  that  the  name  is  acceptable  to  the 
operating  system  in  vhich  the  object  program  vill  be  run. 
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These  ate  simple  statements  which  dynamically  allocate  and 
de-allocate  storage  for  variables  of  based  storage  class. 

Syntax:  statement  «  *  ALLOCATE'  variable  [,  exprn] 

|  '  DEALLOCATE*  variable 

The  'ALLOCATE'  statement  specifies  a  based  variable  to 
receive  a  new  allocation.  The  "exprn" ,  if  included,  mast  be 
integer~valued,  and  specifies  the  number  of  contiguous  storage 
locations  (bytes)  to  be  allocated;  if  the  expression  is  omitted, 
the  length  attribute  (Sec.  3.2.1)  of  the  variable  is  used.  The 
storage  is  acquired  (from  the  operating  system)  and  associated 
with  the  based  variable.  If  storage  was  already  allocated  for 
that  variable,  the  variable's  reference  of  that  storage  is  lost 
(i.e.,  not  saved  or  automatically  freed). 

The  'DEALLOCATE*  statement  is  used  only  to  de-allocate  the 
storage  allocated  to  a  based  variable  by  an  'ALLOCATE' 
statement.  The  specified  variable  is  set  to  "not  allocated", 
and  the  storage  previously  allocated  for  it  is  freed  (returned 
to  the  operating  system) .  If  the  variable  has  storage  which  was 
allocated  by  means  other  than  the  'ALLOCATE'  statement,  then  the 
action  of  'DEALLOCATE'  is  undefined. 

Examples: 


•ALLOCATE*  BLOCK 
•DEALLOCATE*  BLOCK 
'ALLOCATE'  HATPIX,  H*H*4 
•DEALLOCATE'  HATBIX 
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' R EDIHEMSION*  is  a  statement  foe  dynamically  modifying  the 
dimension  attributes  of  'VARYING  ARRAY'S  at  run  tine.  Refer  to 
Section  3. 1.2.1  (Array  modes)  for  information  on  'VARYING  ARRAY' 
mode. 

Syntax:  statement  =  'REDIHENSION*  list  ,  TO-phrase 

TO-phrase  =  desig  'TO'  (  list  ,  run-bounds) 
run-bounds  =  [exprn  ...]  exprn 

Example: 

'REDIHENSION'  AA  'TO*  (H,0...N) 

In  the  syntax  above,  "desig"  denotes  a  designator,  which 
must  have  'VARYING  ARRAY*  mode.  In  each  TO-phrase,  the  number 
of  "run-bounds"s  must  egual  the  declared  number  of  dimensions  of 
the  array  designated  by  "desig".  Also,  "exprn"  denotes  any 
expression  whose  value  is  convertible  to  an  integer.  The 
(optional)  1st  exprn  specifies  the  lower  bound  for  that 
subscript  position;  if  omitted,  a  lower  bound  of  1  is  assumed. 
The  2nd  exprn  specifies  the  corresponding  upper  bound. 

For  each  TO-phrase,  the  run-bounds  expressions  are 
evaluated,  and  their  values  are  converted  (if  necessary)  to 
integers.  The  dimension  attribute  of  the  array  denoted  by  the 
designator  is  changed  to  reflect  the  new  subscript  bounds. 
However,  the  storage  allocated  to  the  array  is  not  changed; 
therefore,  if  the  array  is  in  an  allocated  state  (i.e.,  storage 
is  allocated  for  it) ,  then  the  storage  reguirenent  of  the  re- 
dimensioned  array  must  not  exceed  the  amount  of  storage 
allocated. 

For  example,  if  we  had  declared: 

'DECLARE'  (VI,  V2)  'VARIABLE  ARRAY'  (100), 

AD  'VARIABLE  ARRAY*  (30,20) 

then  we  night  write  re-dimension  statements  like  these: 

'REDIHENSION'  VI  'TO'  (H) 

•REDIHENSION'  V2  'TO'  (0  ...  N-1), 

AD  'TO'  (0...K,  LO) 
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Before  discussing  the  input/output  statements  in  detail, 
several  general  concepts  should  be  defined. 


6. 1 _ Data  sets.  Records,  andu Files 

A  data  set  is  a  collection  of  data  external  to  the  program. 
Input  activity  transmits  data  from  a  data  set  to  a  program. 
Output  activity  transmits  data  from  a  program  to  a  data  set.  A 
data  set  consists  of  discrete  records .  each  consisting  of  zero 
or  more  bytes.  An  input  activity,  then,  transmits  one  or  more 
whole  records  from  a  data  set  to  a  program  while  an  output 
activity  transmits  one  or  more  whole  records  from  a  program  to  a 
data  set.  An  input  activity  is  also  referred  to  as  reading 
while  an  output  activity  is  also  referred  to  as  writing. 

A  file  is  a  usage  of  a  data  set.  A  file  can  be  opened 
either  explicitly  or  implicitly.  A  file  is  opened  explicitly  by 
means  of  an  'OPEN'  statement.  In  this  case  the  file  is 
characterized  by  the  value  of  the  variable  of  ‘FILE  NAME'  mode 
specified  as  a  part  of  the  'OPEN'  statement.  Every  explicitly 
opened  file  is  a  unique  file  even  if  it  uses  the  same  data  set 
as  another  file.  A  file  is  opened  implicitly  through  the 
execution  of  an  input/output  statement  (other  than  'OPEN')  which 
references  it  with  no  prior  implicit  opening  of  the  file.  The 
file  referenced  is  deduced  from  the  data  set  name  given  in  the 
input/output  statement  and  the  manner  in  which  the  data  set  name 
is  specified.  An  implicitly  opened  file  is  characterized  by  the 
value  of  a  variable  of  'FILE  NAME'  node  owned  by  the  system 
input/output  support  software.  This  filename  variable  cannot  be 
referenced  by  name,  but  only  implicitly  through  the 
specification  of  the  sane  data  set  name  in  the  same  manner  as 
when  it  was  implicitly  opened.  This  will  be  clarified  in 
Section  6.3.  Note  that  several  files  nay  be  open  which  use  the 
same  data  set.  The  behavior  in  this  case  is  dependent  upon  the 
system  and  the  type  of  data  set  organization. 
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6. 2 _ Types  of  Input/Output  Activities 

There  are  four  types  of  input/output  activities  supported 
in  MAD/I:  data-directed,  list-directed,  f or  Bat-directed ,  and 
unconverted.  This  section  describes  the  general  characteristics 
of  these  transmission  modes. 


6.2.1 _ Data-direc 


Data-directed  transmission  permits  the  user  to  read  or 
write  self-defining  data. 


Input:  The  data  are  in  a  form  similar  to  a  'PRESET*  statement, 
consisting  of  a  list  of  designators,  each  followed  by  an 
assignment  symbol  (or  equality  symbol)  and  a  list  of  constant 
values  to  be  assigned.  The  input  for  a  single  data-directed 
input  transmission  is  free-form  and  may  span  one  or  more  whole 
records.  The  transmission  is  terminated  by  a  semi-colon  in  the 
last  input  record.  A  typical  input  record  is: 

A:=-3. 2 ,  b:="S",  COMPLXN$8B:=1. 5,  Z (2) : =1 , , 5 (2) ; 


Output:  The  data  values  to  be  transmitted  are  specified  by  a 
data-list  in  the  output  statement.  The  data  are  placed  into  one 
or  more  output  records  and  consist  of  a  list  of  designators, 
each  followed  by  the  value  referenced.  If  a  data-list 
expression  is  not  a  designator  (e.g.,  X+3) ,  then  three  asterisks 
(***)  are  printed  in  place  of  the  designator.  The  records 
produced  by  a  data-directed  output  transmission  are  suitable  as 
input  records  for  a  data-directed  input  transmission;  the  itens 
identified  with  three  asterisks  are  ignored. 


4- 2J.2__listzditected_3i5fisiission 

List-directed  transmission  permits  the  user  to  specify  the 
designators  to  which  data  are  assigned  or  from  which  data  are 
transmitted,  without  specifying  the  format. 


Input:  The  data  are  in  the  form  of  free-form  constant  values 
separated  by  blanks  or  commas.  The  designators  to  which  the 
data  are  to  be  assigned  are  specified  by  a  data-list  in  the 
input  statement. 


Output:  The  data  values  to  be  transmitted  are  specified  by  a 
data-list  in  the  output  statement.  Each  data  item  is  converted 
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to  an  external  fora  (according  to  its  mode  and  value) ,  and  the 
external  foras  are  concatenated  to  form  output  records. 


_ £2I«aiz4i£®cted_2£§nsmissio|i 

Format-directed  transmission  permits  the  user  to  specify: 
(1)  the  designators  to  which  data  are  to  be  assigned  or  from 
which  data  are  to  be  transmitted,  through  a  data-list,  and  (2) 
the  form  of  the  data  fields  in  the  records,  through  a  format 
specification. 


Input;  The  form  of  the  data  in  the  input  records  is  defined  by  a 
format  specification.  The  designators  to  which  the  data  are  to 
be  assigned  are  specified  by  a  data-list. 


Output:  The  data  values  to  be  transmitted  are  defined  by  a  data- 
list.  The  form  that  the  data  are  to  have  in  the  output  records 
is  defined  by  a  format  specification. 


Unconverted  transmission  permits  the  user  to  read  or  write 
information  directly,  with  no  conversion.  The  unconverted 
input/output  statements  cause  a  single  record  to  be  transmitted 
from  or  to  the  data  set.  The  designators  to  which  the  data  are 
to  be  assigned  or  from  which  data  are  to  be  transmitted  are 
specified  through  a  data-list. 


Part  I  —  Description  of  the  HA  D/I  Language 


Section  6:  Input/Output 


107 


_ &ssocAatinfl_Data_sets  with .Files 

A  data  set  is  associated  with  a  file  at  the  tine  the  file 
is  opened.  The  data  set  nane  can  be  specified  in  five  different 
ways  in  either  the  ‘OPEN*  statement  (for  explicitly  opened 
files)  or  an  input/output  statement  other  than  'OPEN'  (for 
implicitly  opened  files.)  These  five  ways  are:  (i)  through  a 
unit  specification,  (ii)  through  a  data  set  nane  specification, 
(iii)  through  a  character-string  specification,  (iv)  through  an 
entry-name  specification,  and  (v)  through  a  default 
specification.  Only  one  of  these  five  ways  can  be  used  in  any 
one  statement. 


6a3a1 _ Onit  Specification 

A  unit  is  a  name  which  is  associated  with  a  particular  data 
set  through  the  job  control  language  of  the  operating  system  in 
which  the  NAD/I  program  is  being  run.  The  unit  is  specified 
through  the  'UNIT*  specification  in  the  input/output  statement. 
This  specification  can  be  an  arithmetic  expression  or  a 
character-string  expression.  The  values  of  these  expressions 
are  interpreted  in  a  system-dependent  fashion. 

In  input/output  statements  other  than  • OPEN ' ,  the  unit 
specification  can  also  be  an  expression  of  'FILE  NAME1  mode,  in 
which  case  the  named  file  is  used.  It  must  have  previously  been 
opened  in  an  'OPEN'  statement. 

All  implicit  references  to  files  which  satisfy  the 
following  two  rules  will  be  considered  as  references  to  the  same 
file: 

1.  All  references  are  by  means  of  a  unit  specification. 

2.  Either  all  references  are  by  means  of  arithmetic 

expressions  which  compare  as  equal  in  value  or  all 
references  are  by  means  of  character-string 
expressions  which  compare  as  equal  in  value. 

In  NTS,  the  value  cf  a  character-string  expression  must  be 
the  name  of  a  "logical  I/O  unit".  The  valid  logical  I/O  units 
are:  SCARDS,  SPRINT,  SPUNCH,  GUSER,  SERCOM,  and  the  numbers  0 
through  9.  The  value  of  an  arithmetic  expression  must  be 
integer-valued  from  0  through  9  or  the  address  of  a  "FDUB"  as 
returned  by  the  subroutine  GETFD.  Non-integer  values  will  be 
truncated  to  the  next  lower  integer  value. 

In  OS,  the  value  cf  a  character-string  expression  must  be  a 
current  "ddname".  These  names  are  defined  through  00  job 
control  language  statements.  The  value  of  an  arithmetic 
expression  must  be  integer-valued  from  0  through  99.  Non¬ 
integer  values  will  be  truncated  to  the  next  lower  integer 
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value. 

Examples:  (using  NTS  conventions) 

'OPEN*  (' UNIT'  "0", 'END  OF  FILE'  MACEND) ,MACLIB 
•OPEN'  ('UNIT'  0,  'END  OF  FILE'  MACEND)  ,  ft  AC  LIB 
•OPEN*  (0,  MACEND) , MACLIB 

are  all  equivalent  and  open  the  file  MACLIB  vhich  uses  the  data 
set  associated  with  the  logical  I/O  unit  0. 

•READ  DATA'  ('UNIT'  MACLIB) 

•REAL  DATA' (MACLIB) 

are  equivalent  and  use  the  file  MACLIB.  If  MACLIB  were  opened 
with  one  of  the  above  'OPEN'  statements,  the  data  set  ultimately 
used  would  be  the  one  associated  with  the  logical  I/O  unit  0. 

•READ  DATA' ('UNIT'  "SCARDS") 

•READ  DATA' ("SCARDS") 

are  both  equivalent  and  perform  a  data-directed  input 
transmission  using  the  data  set  associated  with  the  logical  I/O 
unit  SCARDS.  The  file  associated  with  the  unit  specification 
"SCARDS"  will  be  implicitly  opened  the  first  time  it  is 
referenced  through  the  execution  of  an  input/output  statement 
which  specifies  it. 
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6, 3. 2 _ Data  set  Name  Specification 

The  name  of  a  data  set  can  be  specified  through  the  'DATA 
SET'  specification  in  the  input/output  statement.  This 
specification  is  done  through  a  character-string  expression. 
The  value  of  this  expression  is  interpreted  in  a  system- 
dependent  fashion. 

All  implicit  references  to  files  which  satisfy  the 
following  two  rules  will  be  considered  as  references  to  the  s^me 
file: 

1.  All  references  are  by  means  of  a  data  set  name 

specification. 

2.  All  references  are  by  means  of  character-string 

expressions  which  compare  as  equal  in  value. 

In  NTS,  the  value  of  the  character-string  expression  must 
be  a  file  or  device  name  ("FDname")  .  The  name  may  be  a 
concatenation  of  file  or  device  names,  each  followed  by 
modifiers  or  a  line  number  range,  as  described  in  the  NTS 
manual.  The  FDname  need  not  be  followed  by  a  blank.  Note  that 
the  NTS  term  "file"  represents  a  different  concept  than  the 
HAD/I  term  "file".  Note  that  the  conventions  governing  implicit 
references  to  NAD/I  files  dictate  that  "F"  and  "F  "  name  the 
same  HAD/I  file  while  "F(1,10)"  names  a  different  NAD/I  file 
although  all  three  forms  use  the  same  NTS  file.  A  FDUB  is 
acquired  from  NTS  each  time  a  NAD/I  file  is  opened  with  a  data 
set  name  specification. 

Examples:  (using  NTS  conventions) 

•OPEN'  ('DATA  SET'  "*SYSN AC" , • END  OF  FILE' 

HACEND) , NACLIB 

•OPEN'  (,NACEND,  '  DATA  SET'  "*SYSNAC")  , NACLIB 

are  equivalent  and  open  the  file  NACLIB  which  uses  the  data  set 
consisting  of  the  NTS  file  "*SYSHAC". 

•READ  DATA'  ('LATA  SET'  "♦SOURCE*") 

performs  a  data-directed  input  transmission  using  the  data  set 
consisting  of  the  NTS  FDname  ♦SOURCE*,  which  is  usually  the 
user's  terminal  (or  batch  stream.)  The  file  associated  with  the 
data  set  name  specification  "♦SOURCE*"  will  be  implicitly  opened 
the  first  time  it  is  referenced  through  the  execution  of  an 
input/output  statement  which  specifies  it. 
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^.iL3A3__Cha£actet-sl£incL  Specification 

The  character-string  specification  allows  a  character¬ 
string  expression  to  be  used  as  if  it  were  a  data  set  containing 
one  record.  A  character-string  specification  is  specified 
through  the  'STRING  DATA  SET*  specification  in  the  input/output 
statement.  This  specification  is  a  character-string  expression. 
For  output  transmission,  it  is  restricted  to  a  designator  which 
references  a  character-string. 

All  implicit  references  to  files  by  means  of  a  character¬ 
string  specification  will  be  considered  as  references  to 
different  files. 

Examples: 


•OPEN'  ('STRING  DATA  SET*  "data  String") , DATASTRING 

opens  the  file  DATASTRING  which  uses  the  ^ata  set  consisting  of 
one  record,  the  contents  of  the  constant  "data  string". 
DATASTRING  can  only  be  used  for  an  input  activity,  since  a 
constant  cannot  be  used  as  a  designator. 

•DECLARE'  S  'VARYING  CHAR ACTER • (256) 

•OPEN'  ('STRING  DATA  SET'  S) , DATASTRING 

opens  the  file  DATASTRING  which  can  be  used  for  either  an  input 
activity  or  an  output  activity.  In  either  case,  the  data  set  is 
considered  to  have  a  capacity  of  only  one  record. 

•DECLARE'  S  'VARYING  CHARACTER' (256) 

•WRITE  DATA'  ('STRING  DATA  SET'  S),data-list 

performs  a  data-directed  output  transmission  using  the  variable 
S  as  the  data  set.  The  file  associated  with  the  character¬ 
string  specification  S  will  be  implicitly  opened  each  time  it  is 
referenced  through  the  execution  of  an  input/output  statement 
which  specifies  it.  Thus  the  character-string  specification  S 
can  be  used  repeatedly,  but  only  one  record  can  be  read  or 
written  with  it  during  each  execution  of  an  input/output 
statement. 
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_ Entry-name  Specification 

The  entry-name  specification  allows  a  data  set  to  be 
defined  in  terms  of  two  procedures,  one  which  is  called  for 
every  input  record,  the  other  which  is  called  for  every  output 
record.  An  entry-name  specification  is  specified  through  the 
'ENTRIES'  specification  in  the  input/output  statement.  This 
specification  consists  of  a  variable  of  'ENTRY  NAME'  mode  or  a 
parenthesized  list  of  two  variables  of  'ENTRY  NAHE'  mode.  The 
first  (or  only)  variable  is  called  once  for  every  input  record 
required.  The  input  record  must  be  returned  as  an  expression  of 
'VARYING  CHARACTER'  mode.  The  second  variable  is  called  once 
for  every  output  record.  The  call  includes  one  parameter,  the 
contents  of  the  output  record  in  a  variable  of  'VARYING 
CHARACTER'  mode.  An  end-of-file  or  end-of-volume  condition  can 
be  returned  through  a  return  index  of  1. 

All  implicit  references  to  files  which  satisfy  the 
following  three  rules  will  be  considered  as  references  to  the 
same  file: 

1.  All  references  are  by  means  of  an  entry-name 

specification. 

2.  All  the  variables  of  'ENTRY  NAHE*  mode  for  reading 

compare  as  equal  or  all  are  missing. 

3.  All  the  variables  of  'ENTRY  NAHE*  mode  for  writing 

compare  as  equal  or  all  are  missing. 


Examples: 


•OPEN'  ('ENTRIES'  IN) ,PROCFILE 
•OPEN'  ('ENTRIES'  (IN, OUT)  )  ,PROCFILE 
•OPEN'  ('ENTRIES'  (,OUT))  ,PROCFILE 

all  open  the  file  PROCFILE  which  calls  the  procedures  IN  and  OUT 
for  input  activity  and  output  activity  respectively.  Omitting 
the  input  procedure  (example  3)  causes  an  end-of-file  condition 
on  input  transmission  reguests;  omitting  the  output  procedure 
(example  1)  causes  an  end-of-volume  condition  on  output 
transmission  requests. 

•READ  DATA' ('ENTRIES' (IN, OUT)) 

performs  a  data-directed  input  transmission  using  the  data  set 
associated  with  the  entry-name  specification  (IN, OUT) .  The  file 
associated  with  this  specification  will  be  implicitly  opened  the 
first  time  it  is  referenced  through  the  execution  of  an 
input/output  statement  which  specifies  it. 
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A  data  set  is  associated  with  a  file  by  default  if  none  of 
the  previous  four  ways  of  specifying  the  data  set  has  been  used 
in  the  input/output  statement.  The  default  data  set  for  input 
is  that  associated  with  the  systea  standard  input  unit.  The 
default  data  set  for  output  is  that  associated  with  the  systea 
standard  output  unit. 

All  implicit  references  to  the  default  input  are  considered 
to  be  references  to  the  $qae  file.  All  inplicit  references  to 
the  default  output  are  considered  to  be  references  to  the  fififtfi 
file,  but  different  froa  the  file  assuaed  for  default  input. 

In  HTS ,  the  default  data  set  for  input  is  that  associated 
with  the  logical  I/O  Unit  SCARDS;  the  default  data  set  for 
output  is  that  associated  with  SPRINT. 

In  OS,  the  default  data  set  for  input  is  that  associated 
with  the  ddnase  SYSIN;  the  default  data  set  for  output  is  that 
associated  with  SYSPRINT. 

Examples:  (using  UTS  conventions) 

•OPEN*  ('END  OF  FILE*  A,* END  OF  VOLUHE*  B) , FNAHE 

•OPEN*  (,  A,B)  , FNAHE 

are  equivalent  and  open  the  file  FNAHE  which  uses  the  systea 
standard  input  unit  (SCARDS)  for  input  and  the  systea  standard 
output  unit  (SPRINT)  for  output. 

•READ  DATA' 

perforas  a  data-directed  input  transaission  using  the  default 
input  file  which  is  associated  with  the  logical  I/O  unit  SCABDS. 
The  default  input  file  will  be  iaplicitly  opened  the  first  tine 
it  is  referenced  through  the  execution  of  an  input/output 
statenent  which  specifies  it. 
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_ Eilg-.At£llfeatgs 

Each  file  has  a  collection  of  attributes  associated  with 
it.  For  explicitly  opened  files,  the  attributes  and  their 
values  can  be  specified  in  the  'OPEN'  statement.  Attributes 
which  are  omitted  are  given  default  values.  For  implicitly 
opened  files,  all  attributes  are  given  default  values.  The 
value  of  most  file  attributes  can  be  overridden  in  any 
input/output  statement  for  the  duration  of  the  execution  of  that 
statement . 


The  Most  important  attribute  of  a  file  is  the  data  set  nane 
used  by  the  file  and  the  Manner  in  which  this  nane  was 
specified.  This  attribute  has  been  described  in  Section  6.3. 
This  attribute  cannot  be  overridden  in  an  input/output 
statement. 


fuHjL2 _ Eoq-9t-aig  Eilg.fttUlfallg 

The  end-of-file  file  attribute  is  specified  through  the 
'END  OF  FILE'  specification  of  an  input/output  statement  and  has 
as  its  value  an  entry-naae  variable.  This  entry-naae  is  called 
whenever  an  end-of-file  condition  is  sensed  froa  the  data  set 
associated  with  the  file  in  response  to  an  input  request.  The 
default  end-of-file  attribute  value  is  the  system  subroutine 
which  terainates  execution.  The  end-of-file  file  attribute  can 
be  overridden  in  an  input/output  statement.  In  this  case  its 
value  can  be  either  an  entry-naae  or  a  transfer-point. 

In  NTS,  the  default  end-of-file  attribute  value  is  the 
system  subroutine  SYSTEH. 

Examples: 


'OPEN* ("SPRINT", H AC END) , FNAHE 

•OPEN' ('END  OF  FILE'  HACEND, 'UNIT'  "SPRINT")  ,FNANE 
•READ  DATA' (FNAHE, NEWEND) 

'READ  DATA' ('END  OF  FILE*  NEWEND, • UNIT'  FNAHE) 
•READ  DATA*  ('END  OF  FILE*  NEWEND) 

'READ  DATA*  (, NEWEND) 


The  end-of -volume  file  attribute  is  specified  through  the 
'END  OF  VOLUNE'  specification  of  an  input/output  statement  and 
has  as  its  value  an  entry-name  variable.  This  entry-naae 
variable  is  called  whenever  an  end-of- volume  condition  is  sensed 
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fro*  the  data  set  associated  with  the  file  in  response  to  an 
output  request.  The  default  end-of-voluae  attribute  value  is 
the  systea  subroutine  which  terainates  execution.  The  end-of- 
voluae  attribute  can  be  overridden  in  an  input/output  stateaent. 
In  this  case  its  value  can  be  either  an  entry-naae  or  a 
transfer-point. 

In  NTS,  the  default  end-of-voluae  attribute  value  is  the 
system  subroutine  SYSTEH. 

Exaaples: 


•OPEN*  ("SPRINT",  ,  NIC  END)  ,FNAHE 

'OPEN*  ('END  OF  VOLUME*  HACEND,  •  UNIT'  "SPRINT")  ,FNAHE 
•WRITE  DATA*  (FNAHE,NEWEND)  ,data-list 

•WRITE  DATA*  (•  END  OF  VOLUHE*  NEWEND,  'UNIT'  FNAHE)  fata¬ 
list 

•WRITE  DATA*  ('END  OF  VOLUHE*  NEWEND) ,data-list 
•WRITE  DATA*  (, NEWEND)  ,data-list 


The  error  file  attribute  is  specified  through  the  'ERROR' 
specification  of  an  input/output  stateaent  and  has  as  its  value 
an  entry-naae  variable.  This  entry-naae  variable  is  called 
whenever  an  error  condition  is  sensed  froa  the  data  set 
associated  with  the  file  in  response  to  an  input  or  output 
request.  The  default  error  attribute  value  is  the  systea 
subroutine  which  terainates  execution  abnoraally.  The  error 
attribute  can  be  overridden  in  an  input/out^ut  stateaent.  In 
this  case  its  value  can  be  either  an  entry* name  or  a  transfer- 
point. 


In  NTS,  the  default  error  attribute  value  is  the  system 
subroutine  ERROR. 

Exaaples: 


'OPEN*  ("SPRINT", ,,HACERR) , FNAHE 
•OPEN'  (• ERROR*  H AC ER R,  • UNIT •  "SPRI NT") , FNAHE 
'WRITE  DATA' ( FNAHE ,, NEWERR) ,data-list 
•READ  DATA'  (FNAHE,  , NEWERR) 

•WRITE  DATA'  ('ERROR*  NEWERR, • UNIT'  FNAHE) ,data-list 
'READ  DATA'  ('ERROR*  NEWERR, • UNIT •  FNAHE) 

•WRITE  DATA*  ('ERROR*  NEWERR) ,data-list 
•REAJ  DATA' ('ERROR'  NEWERR) 

•WRITE  DAT^  '  (,, NEWERR)  ,lata-list 
•READ  DATA'  (,  ,  NEWERR) 
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The  maximum-length  file  attribute  is  specified  through  the 
*  MAX  LENGTH*  specification  of  an  input/output  statement  and  has 
as  its  value  an  arithmetic  expression  or  a  parenthesized  list  of 
tvo  arithmetic  expressions.  If  only  one  expression  is  given, 
its  value,  truncated  to  the  next  lover  integer  value,  is  taken 
as  the  maximum  input  and  output  record  length  in  bytes.  If  tvo 
expressions  are  given,  the  value  of  the  first,  truncated  to  the 
next  lover  integer  value,  is  taken  as  the  maximum  input  record 
length  in  bytes;  the  value  of  the  second,  similarly  truncated, 
is  taken  as  the  maximum  output  record  length  in  bytes.  The 
default  maximum-length  file  attribute  values  are  the  maximum 
input  and  output  record  lengths  alloved  for  the  data  set 
associated  vith  the  file.  The  maximum-length  file  attribute  can 
be  overridden  in  an  input/output  statement. 

In  RTS,  the  default  maximum-length  attribute  values  arc  the 
maximum  input  and  output  record  lengths  as  returned  by  the 
subroutine  GDINFO. 

Examples: 


•OPEN*  ("SPRINT",  *HAX  LENGTH*  133)  ,FNAHE 
'OPEN'  (’•SPRINT''  ,  *  RAX  LENGTH*  (255,71)  )  ,  FNAHE 
•WRITE  DATA* (FNAHE,* RAX  LENGTH*  NEWLN) ,data-list 
•READ  DATA* (• RAX  LENGTH*  NEHLN) 


The  echo  file  attribute  is  specified  through  the  *ECHO* 
specification  of  an  input/output  statement  and  has  as  its  value 
any  operand  acceptable  as  a  unit  specification.  Every 
input/output  transmission  using  the  file  is  echoed  on  the  unit 
specified  by  the  echo  file  attribute.  The  default  echo  file 
attribute  value  is  no  echoing.  The  echo  attribute  can  be 
overridden  in  an  input/output  statement. 

Examples:  (using  RTS  conventions) 

•OPEN*  ("SPRINT'',  'ECHO*  "SERCOH")  , FNAHE 
•READ  DATA* ('ECHO*  "SPRINT") 

•READ  DATA*  (*ECHO*  FNAHE) 
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The  miscellaneous  input/output  specifications  are  used  to 
specify  both  required  and  optional  information  within  an 
input/output  statement. 


6*5*1 _ foxasi^fieciiicaiioji 

A  format  can  be  specified  through  a  'FORHAT*  specification 
in  an  input/output  statement.  The  format  is  used  in  format* 
directed  transmission  to  control  the  form  and  conversion  of 
data.  This  specification  is  done  through  a  character-string 
expression,  whose  value  is  the  format.  The  value  of  this 
expression  is  interpreted  in  a  system-dependent  fashion;  there 
is  no  specification  of  a  format  language  as  a  part  of  HAD/I . 

In  NTS,  IOH360  is  used  as  the  format  interpreter.  The 
character-string  expression  must  be  a  valid  format  as  described 
in  the  1OH360  description  in  the  MTS  manual. 

Examples:  (using  NTS  conventions) 

•WRITE*  ("'  X=*,F10.0,*  X*X® ' ,F10.0*W) ,1,1*1 
•WRITE* (•UNIT*  "SERCOH", 'FORHAT*  «•  FILE  *,C,'  HAS  BEEN 
CREATED. »♦")  ,FNAHE 


£_•  5_.2 _ 

A  line  specification  is  used  to  perform  random  accesses  to 
a  data  set.  The  line  is  specified  via  the  ' LINE*  specification, 
which  specifies  an  arithmetic  expression.  The  value  of  this 
expression  is  interpreted  in  a  system-dependent  fashion  to 
determine  the  position  in  the  data  set  at  which  the  input/output 
activity  of  the  current  statement  is  to  begin.  Further 
input/output  activity  will  be  conducted  in  a  sequential  fashion 
until  the  next  occurrence  of  a  line  specification. 

In  NTS,  the  line  specification  can  be  used  for  line  files 
or  sequential  files.  For  line  files,  the  value  of  the 
arithmetic  expression  is  interpreted  as  the  line  number, 
multiplied  by  1000,  of  the  line  to  be  next  read  or  written. 
That  is,  the  expression  must  have  a  value  of  1500  to  read  or 
write  beginning  at  line  1.5  of  the  file.  This  is  the  same  value 
as  used  by  the  NTS  input/output  subroutines,  such  as  SCARES. 
For  sequential  files,  the  value  of  the  arithmetic  expression 
must  be  a  value  returned  by  a  'LAST  LINE*  specification  in  a 
previous  i nput/outpu t  statement.  This  value  is  used  internally 
to  retrieve  the  corresponding  note-point  information.  Both  the 
read  and  write  pointers  are  updated  with  the  appropriate  values. 
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Examples:  (using  HTS  conventions) 

•READ*  ("15*", 0, 'LINE'  1000) , NUHB 
•WRITE ' ("15*",  0, •LINE*  A+B)  , NUHB 


_ 1 4  st  ^ i  in  e_Speci  1 A £a t i 2 n 

A  last-line  specification  is  used  to  record  the  current 
position  in  a  data  set  so  that  a  file  can  later  be  re-positioned 
to  that  position  in  the  data  set.  This  is  specified  via  the 
'LAST  LIRE'  specification,  which  consists  of  a  designator  for  an 
arithmetic  value.  The  input/output  system  returns  a  value  which 
can  be  used  in  the  'LINE*  specification  to  position  the  data 
set.  This  returned  value  is  treated  in  a  system-dependent 
fashion. 

In  NTS,  the  last-line  specification  can  be  used  for  any 
data  set.  For  line  files,  the  value  returned  is  the  line  number 
of  the  last  record  read  or  written  by  this  statement,  multiplied 
by  1000.  That  is,  the  value  1500  is  returned  if  1.5  was  the 
line  number  of  the  last  record  read  or  written  by  the  statement. 
This  is  the  sane  value  as  used  by  the  NTS  input/output 
subroutines,  such  as  SCARDS.  For  sequential  files,  the  value 
returned  is  a  code  used  internally  to  retrieve  the  note-point 
information  corresponding  to  the  last  record  read  or  written. 
For  all  other  types  of  data  set  organization,  a  pseudo  line 
number  is  returned  as  computed  by  HTS. 

Examples:  (using  (ITS  conventions) 

•READ*  ("15*", 0, 'LAST  LINE'  LLINE) , NUHB 
•WRITE* ("15*", 'LAST  LINE'  LNDH) , NUHB 


A  last-length  specification  is  used  to  obtain  the  length, 
in  bytes,  of  the  last  record  read  or  written  by  the  input/output 
statement.  This  is  specified  via  the  'LAST  LENGTH' 
specification,  which  consists  of  a  designator  for  an  arithmetic 
value. 

Examples: 

'READ  UNCONVERTED' (0, 'LAST  LENGTH*  N), ARRAY 
•WRITE  DATA*  ('LAST  LENGTH'  LEN) ,data-list 
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The  following  table  summarizes  all  the  possible 
input/output  specifications  and  the  possible  modes  of  theic 
value  expressions. 


.Keyword 

fils-A t£? 

Designator? 

ISUlfigifelS-ligflSS 

•DATA  S£T ' 

Yes* 

MO 

Character -st ring 

•ECHO' 

Yes 

NO 

Arithmetic 

Character-string 

Filename 

•END  OF  FILE' 

Yes 

No 

Entry-name 
Transfer-point  1 

•END  OF  VOLUME* 

Yes 

NO 

Entry-name 
Transfer-point  *■ 

•ENTRIES' 

Yes* 

NO 

Entry-name 

Two  entry-name  2 

•ERROR' 

Yes 

NO 

Entry-name 
Transfer-point  1 

•FORMAT' 

No 

NO 

Character-string 

•LAST  LENGTH' 

No 

Yes 

Arithmetic 

•LAST  LINE' 

No 

Yes 

Arithmetic 

'LINE' 

No 

No 

Arithmetic 

•MAX  LENGTH' 

Yes 

No 

Arithmetic 

Two  arithmetic  2 

•STRING  DATA  SET'  Yes* 

Yes3 

Varying-character 

•UNIT' 

Yes* 

No 

Arithmetic 

Character-string 

Filename 


(1)  Transfer-point  expressions  cannot  be  used  in  'OPIN' 
statements. 

(2)  Two  expressions  are  represented  as  a  parenthesized  list  of 

two  expressions. 

(  >)  Not’d  not  be  a  designator  for  input  activity. 

v 4 )  Tr.ese  s p  >  lficatior.s  are  used  to  denote  the  file  to  be  used; 
hence,  at  most  one  of  these  can  be  given  per  input/output 

statement. 
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6.7  Data-lists 

A  data -list  is  used  to  specify  the  designators  to  which 
data  are  to  be  assigned  (for  input  activity)  and  the  data  values 
to  be  transmitted  (for  output  activity.)  The  elements  of  a 
data-list  may  be  either  block-element s  or  expressions.  For 
input  activity,  the  expressions  are  restricted  to  designators. 
For  example,  the  data-list 


A,  X*3,  C 

is  valid  for  output  activity  but  not  for  input  activity,  because 
X+3  is  not  a  designator.  In  either  case,  it  should  be 
understood  that  expressions  include  embedded  statements.  For 
input  activity,  further  references  involving  designators  earlier 
used  as  data-list  expressions  refer  to  the  new  value  just  read. 
For  example,  N,  A  (N)  uses  the  new  value  of  N  in  forming  the 
reference  to  A  (N)  . 


6x2*1 _ Blogk_.£igiej]ts 

A  block-element  is  a  pair  of  subscripted  elements  from  the 
same  array  separated  by  an  ellipsis  (without  commas).  The 
subscripts  may  be  arbitrarily  complex.  An  example  of  a  block- 
element  is: 


A  (I,  J)  . .  •  A  (1+3, K) 

The  block-element  represents  all  the  elements  of  the  array,  from 
the  first-named  element  through  the  second-named  element, 
sequencing  through  the  elements  in  the  order  determined  by  the 
array  sequencing  rule  (Sec.  3. 1.2.1).  For  example,  if  we  have 
declared 

A  'FIXED  ARRAY*  (-1...  1,2,0.  ..2) 

then 

A  (0 , 1 ,  1 ) .  .  .  A  (0,2,  2) 

represents  the  five  elements 

A  (0,  1 ,  1)  ,  A  (0,1, 2)#  A  (0,  2,0)  ,  A  (0,  2, 1)  ,  A  (0 , 2,  2)  • 

The  number  of  array  elements  represented  by  a  block-element  can 
vary  during  execution  as  the  subscript  values  vary.  For 
example,  B(1)...B(N),  where  B  ras  been  declared  an  array  with 
one  dimension,  represents  N  array  elements. 
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k*lx2 _ l££lX-IlBEl£gjgS£ 

An  expression  whose  result  is  of  an  array  node  represents 
all  the  elenents  of  the  array,  sequencing  through  the  eleaents 
in  order.  For  exaaple,  if  ve  have  declared 

C  'FIXED  ARRAY  '  (-  1. .  .  1 ,2) 

then  the  use  of  C  as  an  expression  in  a  data-list  represents  the 
six  elenents 

C<-1,1),  C(-1, 2),  C(0,1),  C  (0, 2)  ,  C(1,1),  C  (1,2)  . 


hxlxl _ Coapojient^sttucture^^igssifiiis 

An  expression  whose  result  is  a  conponent  structure 
represents  all  the  elenents  of  the  conponent  structure  fron 
lef t-to-right  in  the  sane  order  as  declared.  For  exaaple,  if  we 
have  declared 

D  ' COMPONENT  STRUCTURE1  (9A  'INTEGER', SB  'FIXED  ARRAY ' (2) ) 

then  the  use  of  D  as  a  data-list  expression  represents  the  three 
itens 


DS9A,  DS3B  ( 1)  ,  D$98  (2)  . 


6x7^4 _ Unsupported  Modes 

Expressions  whose  result  is  one  of  the  following  nodes 
cannot  be  used  as  data-list  expressions:  'ALTERNATE',  'BIT', 
•ENTRY  POINT',  'FILE  NAHE',  and  'TRANSFER  POINT'. 
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An  embedded  statement  can  be  used  as  an  expression  in  a 
data-list.  For  prefix  statements,  the  expressions  in  their 
scope  (i.e. ,  the  expressions  following  the  conna  in  the  short 
fora  or  the  expressions  delilited  by  senicolons  in  the  long 
fora) ,  will  be  called  scope  oppressions.  In  the  execution  of 
the  embedded  statement  in  the  data-li$t,  any  scope  expressions 
which  appear  in  a  'LIST'  statement  are  treated  as  a  part  of  the 
data-list.  For  an  input  activity,  the  scope  expressions  of  a 
'LIST'  statement  are  restricted  to  designators. 

Examples: 

The  data-list 


N,  ('FOR'  I  :=  1,1, I>M,  'LIST*  X  (I) ) 
is  equivalent  to  the  data-list 
N,  X(1)...X(N)  . 

The  data-list 


N,  ('FOR*  I  1,1,  I>H;  ‘LIST*  X(I),Y(I);  'IF*  I>1, 
•LIST*  Z(I)  'END') 

is  equivalent  to 

N.XO)  »X  (1)  #X(2)  ,Y  (2),Z(2),X(3)  ,Y  (3)  ,Z(3),  — 

»X(N)  ,  Y  ( M)  ,  Z  (N)  . 
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An  input/output  statement  (other  than  'CLOSE')  consists  of 
a  keyword,  followed  by  an  optional  parenthesized  specification 
list,  optionally  followed  by  a  cossa  and  a  data-list.  A  close 
statement  consists  of  the  keyword  'CLOSE'  followed  by  a  file* 
name  expression. 


I/O-statement  =  I/O-key word  [ I/O-spec-list  ]  [ ,  data-list] 


close-statement  =  'CLOSE'  f ilenase-expression 


Exa  spies: 


•OPEN' ("SPRINT",  HACEND) , FNAHE 
•READ  DATA* 

'READ' ,A,B,C 
•CLOSE'  FNAHE 


The  permissible  input/output  statement  keywords  are: 
•OPEN',  'READ',  'READ  DATA',  • READ  UNCONVERTED'  ,  'WRITE',  • WRITE 
DATA',  and  'WRITE  UNCONVERTED'. 

I/O-keyword  =  'OPEN*  |  'READ*  |  'READ  DATA*  |  'READ 

UNCONVERTED'  |  'WRITE*  |  'WRITE  DATA*  | 
'WRITE  UNCONVERTED' 


An  input/output  specification  list  consists  of  a 
parenthesized  list  of  one  or  more  specifications  which  can  be 
given  in  a  positional  or  a  keyword  fora,  or  a  mixture  of  both. 
For  each  input/output  statement,  the  input/output  specifications 
are  each  assigned  a  position  in  the  list,  from  most-com.’ionly- 
used  specification  (on  the  left)  to  least-commonly-used 
specification  (on  the  right) .  A  specification  can  be  given  in 
positional  form  by  putting  its  expression  in  the  appropriate 
position  in  the  input/output  specification  list.  Specifications 
can  be  skipped  over  in  the  positional  form  by  using  successive 
commas.  Positional  specifications  cannot  be  used  to  the  right 
of  the  first  keyword  specification  in  the  list.  A  specification 
can  be  given  in  keyword  form  by  preceding  its  expression  by  the 
appropriate  keyword.  A  keyword  specification  can  be  given  in 
any  position  in  the  li  t.  The  syntax  is  as  follows: 
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I/O-spec-list  =  (  I/O-keyword-spec-list  ) 

|  (  I/O-positional-spec-list  ) 

|  (  I/O-positional-spec-list  , 

I/O-keyword-spec-list  ) 

1/0-positional-spec-list  =  list  ,  I/O-spec-expr 

I/O-keyword-spec-list  =  list  ,  {  I/O-spec-keyword 

I/O-spec-expr  } 

I/O-spec- keyword  =  •DATA  SET*  |  'ECHO1  |  'END  OF  FILE*  1 

•END  OF  VOLUME'  |  'ENTRIES'  |  ' ERROR •  | 

•FORMAT'  J  'LAST  LENGTH*  |  'LAST  LINE* 
|  'LINE*  |  MAX  LENGTH'  |  'STRING  DATA 
SET*  |  'UNIT* 

I/O-spec-expr  ■  expression 

|  (  expression  ,  expression  ) 
j  (  ,  expression  ) 


Examples: 


("  SCARDS",ENEFILE) 
("SCARDS",ENEFILE, »HAX  LENGTH'  72) 
(•MAX  LENGTH*  (72,132)) 

("SCARDS",  ,GOEBR) 


A  data-list  consists  of  a  list  of  expressions  and  block- 
eleaents,  separated  by  coaaas.  Data-lists  have  been  discussed 
in  Section  6.7. 

data-list  =  list  * .  {  expression  |  block-eleaent  ) 
block-eleaent  =  array-eleaent-desig  array-eleaent-desig 
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lQgylzguif>ai.5tfltgjgnt5 

A  brief  description  of  the  input/output  statements  is  given 
below.  Each  descriptive  section  begins  with  the  statenent 
prototype  followed  by  a  list,  in  positional  order,  of  the 
acceptable  specification  elenents  (which  nay,  of  course,  take 
default  values). 


Statenent  Prototype: 

'OPEN'  (  I/O-spec-list  ]  ,  filename-designator 

Allowable  Specification  Keywords:  'OMIT',  'END  OF  FILE',  'END  OF 
VOLUME' ,  *  ERROR' ,  'ECHO',  ' HAXLENGTH' ,  'DATA  SET',  'STRING 

DATA  SET',  'ENTRIES' 

The  file  referenced  by  the  f ilenane-designator  is 
explicitly  opened.  The  values  of  its  file  attributes  r.re 
deternined  by  the  I/o-spec-list.  Those  attributes  which  are  not 
qiven  values  take  on  default  values.  All  file  attributes  (other 
than  the  data  set  associated  with  the  file)  can  be  overridden  in 
input/output  statenents  which  reference  the  file.  A  file  which 
has  been  explicitly  opened  can  be  used  in  the  unit  specification 
of  all  input/output  statenents  other  than  'OPEN'  until  the  file 
is  closed  through  a  'CLOSE'  statenent. 

Exa  nples: 


•OPEN'  (0,  HACEND) ,N ACLIB 

•OPEN*  ('END  OF  FILE*  8ACEND,  'UNIT'  0) ,HACLIB 
•OPEN'  (, HACEND,' DATA  SET'  "*SYSHAC")  ,M ACLIB 
•OPEN*  ('ENTRIES'  (IN, OUT)  )  ,PROCFILE 
•OPEN' , DEFAULTFILE 


statenent  Prototype:  'CLOSE'  filename-expression 

The  explicitly  opened  file  specified  by  the  filenane- 
expression  is  closed.  The  f ilenane-expression  cannot  be  used  in 
any  further  input/output  statenents  without  being  opened  again. 
No  other  copies  of  the  value  of  the  f ilenane-expression  can  be 
used  in  further  input/output  statenents,  even  if  the  file  is 
opened  again.  If  a  data  set  nane  specification  ('DATA  SET')  was 
used  when  the  file  was  opened,  the  systen  in  which  the  HAD/I 
program  is  being  run  is  notified  that  this  usage  of  the  data  set 
has  ceased.  The  systen  is  then  free  to  close  the  data  set  when 
it  feels  that  is  appropriate. 

Exa  vples: 
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•CLOSE*  HACLIB 
•CLOSE*  FILEABRAY (!♦ 3) 


£aiariiL§£tei_in£ut 


Statement  Prototype:  ‘BEAD  DATA*  [I/O-spec-list]  [,  data-list] 

Allowable  Specification  Keywords:  'UNIT',  'END  OF  FILE* , 
• EBROB • ,  ‘LINE*,  ‘LAST  LINE*,  'LAST  LENGTH*,  'ECHO*,  '8AX 
LENGTH*,  'DATA  SET',  ' STBING  DATA  SET*,  *ENTBIES' 

This  statenent  causes  a  data-directed  input  transaission. 
The  foraat  of  acceptable  input  records  is  discussed  in  Section 
6.2.1.  If  the  data-list  is  given,  the  designators  allowed  on 
the  input  records  are  restricted  to  those  which  reference  the 
variables  specified  in  the  data-list.  If  no  data-list  is  given, 
any  designator  which  is  valid  within  the  block  containing  the 
'BEAD  DATA*  statement  can  be  given  in  the  input  records.  All 
variables  known  within  the  block  which  can  be  specified  in  the 
input  records  as  described  above  will  automatically  be  entered 
(at  compile  time)  in  the  run-time  symbol  table. 

Examples: 


•BEAD  DATA* 

•BEAD  DATA'  ('ECHO*  "SPRINT") 

'READ  DATA' ('DATA  SET'  "INITfALDES") 

•BEAD  DATA*,  A,B,COHPLXN,Z 

each  could  be  used  to  read  the  record: 

A:  =  -3. 2,  B:*"S",  COHPLXN$9B:  =  1.5,  Z (2)  :  =  1,, 5 (2)  ; 

The  first  three  examples  would  force  all  the  variables  known 
within  the  block  containing  the  'BEAD  DATA'  statement  into  the 
run-time  symbol  table,  while  the  last  example  would  force  only 
A,  B,  COHPLXN,  and  Z  into  the  run-time  symbol  table. 
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Statement  Prototype:  'WRITE  DATA'  [I/O-spec-list]  ,  data-list 

Allowable  Specification  Keywords:  'ONIT',  'END  OF  VOLUHE* , 
•EBBOR*,  'LINE*,  'LAST  LINE',  'LAST  LENGTH',  'ECHO',  ' HAX 
LENGTH*,  'DATA  SET*,  'STRING  DATA  SET*,  'ENTRIES' 
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This  statement  causes  a  data-directed  output  transmission. 
The  format  of  the  output  records  produced  is  discussed  in 
Section  6.2.1.  Symbol  table  entries  for  each  element  in  the 
data-list  will  automatically  be  entered  in  the  run-time  symbol 
table. 

Examples: 


•WRITE  DATA' ,X+3,A 

would  produce  an  output  record  like; 
♦**  =  10,  A  =  -3.2; 


Also, 

•WRITE  DATA'  ('DATA  SET'  "NEWVALQES")  ,  Z  (2)  . . .  Z  (  5) 
would  produce  an  output  record  like: 

Z (2)  =  1.5,  3.6,  -10.2,  8.63; 


List-Directed  Input 


Statement  Prototype:  'READ*  [  I/O-spec-list  ]  ,  data-list 

Allowable  Specification  Keywords:  a,  'OMIT',  'EWD  OF  FILE', 
•ERROR',  'LINE*,  'LAST  LINE',  'LAST  LFNGTH' ,  'ECHO',  'MAX 
LENGTH',  'DATA  SET',  'STRING  DATA  SET',  'ENTRIES' 

This  describes  a  list-directed  input  transmission.  The  o 
represents  the  'FORMAT'  I/O  specification.  List-directed 
input/out  put.  is  distinguished  from  format-directed  input/output 
by  the  absence  of  the  'FORMAT'  specification.  The  format  of 
acceptable  input  records  is  discussed  in  Section  6.2.2.  Symbol 
table  entries  for  each  data-list  element  will  automatically  be 
entered  in  the  run-time  symbol  table. 

Examples: 


'READ'  ,N,M,  X  (1)  .  ..X  (N) 

•READ'  (, 0)  ,N,M,X  (1)  .  ..X  (N) 

•READ'  ('UNIT'  0)  ,N,H.X(1)  ...X(N) 

each  could  be  used  to  read  the  record; 

«  ,  "CASE  1",  1.5,  3.2  ,  -.3,  16 
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Statement  Prototype:  ‘WRITE '  [I/O-spec-list]  ,  data-list 

Allowable  Specification  Keywords:  □  ,  'OMIT*,  'END  OF  VOLUHE* , 
'ERROR',  'LINE',  'LAST  LINE',  'LAST  LENGTH',  'ECHO',  ' HAX 
LENGTH',  'DATA  SET',  ' STRING  DATA  SET',  'ENTRIES' 

This  describes  a  list-directed  output  transmission.  The  □ 
represents  the  'FOBHAT'  I/O  specification.  List-directed 
input/output  is  distinguished  from  format-directed  input/output 
by  the  absence  of  the  'FOBHAT*  specification.  The  format  of 
output  records  produced  is  discussed  in  Section  6.2.2.  Symbol 
table  entries  for  each  data-list  element  will  automatically  be 
entered  in  the  run-time  symbol  table. 

Examples: 


•WRITE',  N, "VALUES  ABE: ", X  ( 1 ) . . . X (N) 

•WRITE* (,0),  N, "VALUES  ARE:  "  ,X  (1)  .  .  .  X  (N) 
•WRITE' ('UNIT*  0),  N,  "VALUES  ARE:",X  (1)  ...  X  (N) 

each  would  produce  a  record  like: 

4  VALUES  ARE:  1.5  3.2  -0.7  16.0 


Statement  Prototype:  'BEAD'  I/O-spec-list  ,  data-list 

Allowable  Specification  Keywords:  'FOBHAT',  'UNIT',  'END  OF 
FILE',  'EBBOB',  'LINE',  'LAST  LINE',  » LAST  LENGTH' ,  'ECHO', 
•HAX  LENGTH',  'DATA  SET',  'STRING  DATA  SET',  'ENTRIES* 

This  describes  a  format-directed  input  transmission,  as 
described  in  Section  6.2.3.  Format  specifications  themselves 
are  discussed  in  Section  6.5.1. 

Examples: 


•READ*  ("15*"), N 
•READ'  ("15*", 0)  ,N 

each  could  be  used  to  read  the  record: 
□□□3a 
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where  each  a  represents  a  blank. 


Format-Directed  Output 


Statement  Prototype:  'WRITE *  I/O-spec-list  [  ,  data-list  ] 

Allowable  Specification  Keywords:  'FORMAT',  'OMIT',  'END  Of 
VOLUME',  'ERROR',  'LINE',  'LAST  LIME',  'LAST  LENGTH', 
•ECHO',  'MAX  LENGTH',  'DATA  SET',  'STRING  DATA  SET', 
•ENTRIES' 

This  describes  a  f ona t-directed  output  transmission,  as 
described  in  Section  6.2.3.  Fornat  specifications  themselves 
are  discussed  in  Section  6.5.1.  The  first  character  of  the 
output  line  nay  be  treated  as  a  logical  carriage  control, 
depending  upon  the  systew  in  which  the  RAD/I  prograa  is  being 
run  and  the  type  of  the  data  set  organization. 

‘Examples: 


•WRITE' ("'CENTER  THE  FILE  NAME:'*") 
will  produce  the  output  record: 

CENTER  THE  FILE  NAME: 

In  MTS,  the  "6"  will  be  treated  as  a  logical  carriage  control 
which  suppresses  a  line- feed  at  the  end  of  the  line  if  the  data 
set  is  a  terainal. 

•WRITE'  C'X  =  '  ,F3.2*")  ,X 
•WRITE'  C"X=',F3.2V",0)  ,X 

each  would  produce  an  output  record  like: 

X=3 15.  52 


6*9^5 _ Unconverted  J/Q 
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Statement  Prototype: 

•READ  UNCONVERTED'  [ I/O-spec-list  ]  ,  data-list 

Allowable  Specification  Keywords:  'UNIT',  'END  OF  FILE', 
•ERROR',  'LINE',  'LAST  LINE',  'LAST  LENGTH' ,  'ECHO',  'MAX 
LENGTH',  'DATA  SET',  'STRING  DATA  SET',  'ENTRIES' 
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This  statement  causes  an  unconverted  input  transmission  as 
described  in  Section  6.2.4.  Exactly  one  record  will  be  read. 
The  record  must  have  been  written  with  a  'WRITE  UNCONVERTED' 
statement.  The  data-list  items  must  agree  in  mode  with  those 
specified  in  the  'WRITE  UNCONVERTED'  statement  which  produced 
the  record.  Symbol  table  entries  for  all  the  variables  which 
are  referenced  in  the  data-list  will  automatically  be  entered  in 
the  run-time  symbol  table.  Unconverted  input/output  is  the  most 
efficient  type  of  transmission  because  conversion  is  not  needed. 


Examples: 


•REID  UNCONVERTED'  ,  M,  X  ( 1)  .  .  .  X  (N) 
•READ  UNCONVERTED'  (0)  ,  N , X  (1) . . . X (N) 


HDCsnyerte4_2jjt£uti 


Statement  Prototype: 

•WRITE  UNCONVERTED'  [ I/O-spec-list ]  ,  data-list 

Allowable  Specification  Keywords:  'UNIT ' ,  'END  OE  VOLUHE' , 
•ERROR',  'LINE',  'LAST  LINE',  'LAST  LENGTH',  'ECHO',  ' MAX 
LENGTH',  'DATA  SET',  'STRING  DATA  SET',  'ENTRIES' 

This  statement  causes  an  unconverted  output  transmission  as 
described  in  Section  6.2.4.  Exactly  one  record  will  be  written. 
The  record  can  be  read  only  with  a  'READ  UNCONVERTED'  statement 
whose  data-list  items  agree  in  mode  to  those  specified  in  the 
'WRITE  UNCONVERTED'  statement  which  produced  the  record.  Symbol 
table  entries  for  all  the  data-list  elements  will  automatically 
be  entered  in  the  run-time  symbol  table.  Unconverted 
input/output  is  the  most  efficient  type  of  transmission  because 
conversion  is  not  needed. 

Examples: 


•WRITE  UNCONVERTED',  N  ,  X  ( 1)  .  .  .  X  ( N) 

•WRITE  UNCONVERTED'  (0)  ,  X  (1)  ...  X  (N) 

•WRITE  UNCONVERTED'  ,  N+3,M,X(1,1)  ...X(N*3,H) 
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7.1  Block  St ructure 

Like  other  languages  such  as  PL/I  and  ALGOL  60,  HAD/I 
includes  the  concept  of  block  structure. 

There  are  two  kinds  of  blocks:  compound-statement  blocks 
and  procedure  blocks. 

A  compound-statement  block  is  a  ‘BLOCK*  statement 
(Sec.  5.10).  The  block  begins  with  the  statement  keyword 
'BLOCK*,  ends  with  the  corresponding  end  keyword  'END',  and 
contains  all  the  intervening  text.  If  the  statement  is  labeled, 
the  label  is  not  contained  in  the  block. 

*  procedure  block  is  a  'PROCEDURE'  statement  (Sec.  5.7.1). 
The  block  begins  with  the  statement  keyword  'PROCEDURE',  ends 
with  the  corresponding  end  keyword  ('END  PROCEDURE'  or  'END')  , 
and  contains  all  the  intervening  text.  If  the  statement  is 
labeled,  the  label  is  pot  contained  in  the  block.  Both  the 
short-form  and  the  long-form  'PROCEDURE'  statements  are  blocks. 

Blocks  may  be  properly  nested;  a  block  nay  contain  other 
blocks,  which  may  in  turn  contain  other  blocks.  Re  will  say 
that  a  portion  of  text  T  (a  symbol,  expression,  or  statement)  is 
internal  a  block  B,  and  that  B  properly  contains  T,  if  and 

only  if: 

(1)  B  contains  T,  and 

(2)  there  is  no  block  C  such  that  B  contains  C  and  C 
contains  T. 


Every  NAD/I  program  is  a  block  --  eit'ier  a  compound- 
statement  block  or  a  procedure  block.  It  is  called  the 
outermost  block,  and  is  not  internal  to  any  block.  Every  other 
block  in  the  program  is  internal  to  exactly  one  block. 
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2*2 _ Sco£g_o|„ names 

The  block  structure  of  a  program  provides  a  convenient 
framework  in  which  to  define  the  "scope  of  names"  and  a  "re¬ 
naming  conv  ntion".  He  shall  take  "names"  to  mean  identifiers 
only,  although  these  concepts  could  potentially  be  extended  to 
operators  and  keywords  as  well. 

The  re-naeina  convention  allows  the  sane  seguence  of 
source-program  characters  (i.e.,  the  same  symbol)  to  be  used  to 
represent  more  than  one  name  in  the  program,  provided  that  the 
different  usages  are  disjoint,  so  that  each  instance  of  the 
symbol  represents  a  well-defined  name. 

Example: 

'PROCEDURE*  AA; 

•INTEGER*  I,  J,  K; 

stat-seq-Al ; 

•PROCEDURE*  BB; 

•INTEGER*  I,  J,  L; 

stnt-seq-Bj 

•END  PROCEDURE*; 

' stmt-seq-A2; 

•END  PROCEDURE* 

In  the  above  example,  the  four  symbols  I,  J,  K,  and  L  are  used 
to  represent  six  different  identifiers  (names) : 

I  in  block  AA,  but  not  block  BB; 

J  in  block  AA,  but  not  block  BB; 

K  in  block  AA; 

I  in  block  BB; 

J  in  block  BB; 

L  in  block  BB. 

The  scone  of  a  name  is  the  union  of  all  portions  of  a 
program  (or  a  linked  set  of  programs)  in  which  the  name  is 
"known";  i.e.,  all  places  where  it  nay  be  used.  (See  also 

Section  3.3.)  A  name  is  "known"  in  a  portion  of  text  1  if  an 

instance  in  T  of  the  symbol  representing  the  name  is  recognized 
as  an  occurrence  of  that  name. 

Every  name  must  be  declared  (explicitly  or  implicitly)  in 
some  block  (see  Sections  3. 5-3. 7).  The  scope  of  a  given  name  N 
can  be  determined  as  follows  (let  S  be  the  symbol  representing 
N)  : 

(1)  The  scope  of  N  includes  all  text  internal  to  the  block  B  in 

which  N  is  declared  (B  is  the  block  to  which  the 

declaration  of  N  is  internal). 
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(2)  If  the  scope  of  N  includes  declarations  that  li  is  *  NOTNEH • 
or  'GLOBAL*,  the  scope  of  M  is  extended  "outward" 
accordingly  (see  Sec.  3.3).  Multiple  declarations  of  1)  are 
permitted  so  long  as  they  do  not  conflict,  but  only  one 
a ode  declaration  is  allowed. 

(3)  Let  B1  be  the  smallest  block  containing  all  the  scope  of  N 
( B 1  either  is  B  or  contains  B) .  The  scope  of  N  is  now 
extended  "inward"  into  all  blocks  internal  to  B1,  and  all 
blocks  internal  to  those,  etc.,  gxceot  that  the  scope  of  N 
is  not  extended  into  any  block  which  properly  contains  the 
scope  (or  part  of  the  scope)  of  any  other  naae  M* 
represented  by  the  saae  syabol  S. 

(4)  Nanes  declared  'EXTERNAL'  or  ' ACCESSIBLE4  are  called 
"external"  naaes.  If  two  or  sore  external  nanes  are 
represented  by  the  saae  synbol,  they  are  nerged  into  a 
single  naae  whose  scope  is  the  union  of  the  individual 
scodes.  The  attributes  of  the  nanes  nust  not  conflict. 
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7.  3 _ Block  structure  at  Hun  time 

At  run  tine,  blocks  are  activated  (entered)  and  terainated 
(exited)  in  a  dynaaic  sequence  deterained  by  the  order  of 
execution  of  the  prograa. 

A  coapound-stateaent  block  is  activated  when  control  passes 
through  the  stateaent  keyword  ('BLOCK')  for  the  block.  It  is 
terminated  when  control  passes  through  the  end  keyword  ( ' HID* ) 
for  the  block,  or  when  execution  of  a  'GO  TO*  stateaent 
transfers  control  to  a  point  not  in  the  block. 

A  procedure  block  is  activated  when  any  one  of  its  entry 
points  is  called.  It  is  terainated  in  any  of  the  ways  described 
in  Section  5.7.3. 

Recursive  procedures  have  not  yet  been  defined  in  the  HAD/I 
language. 
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Soaetines  it  is  useful  to  be  able  to  perfora  operations 
that  result  in  soae  change  in  the  source  text.  These  operations 
or  coaputations  are  perforaed  at  coapilation  tiae  and  not  at  run 
tiae.  HAD/I  has  soae  facilities  for  perforaing  compile-time 
operations. 


Atl— Ih£.....fgHJSIIlUIEl^§tateaent 

The  • SUBSTITUTE®  statement  nay  be  used  to  associate  a  given 
syabol  (other  than  a  constant)  with  an  arbitrary  sequence  of 
synbols  at  translation  tiae.  The  fora  of  this  stateaent  is 

•SUBSTITUTE'  X  SI  S2  ...  Sn  ' END  SUBSTITUTE* 

where  X  and  SI  through  Sn  are  legal  HAD/I  symbols  and  X  is  not  a 
constant.  After  the  occurrence  of  this  stateaent,  each 
occurrence  of  the  syabol  X  will  be  replaced  by  the  sequence  of 
symbols  SI  through  Sn. 

Substitution  would  noraally  be  used  for  representing  either 
repetitious  portions  of  a  program  or  soae  sequence  occurring  in 
maty  parts  of  a  prograa  and  changing  fron  translation  to 
translation. 

Note  that  Si  through  Sn  nust  be  complete  symbols.  Also, 
the  context  in  which  X  occurs  will  in  no  way  affect  the 
recognition  of  the  synbols  SI  through  Sn. 

Since  the  substitution  of  a  syabol  is  effective  only  after 
it  has  been  defined  by  a  'SUBSTITUTE'  statement,  that  syabol  nay 
have  had  a  different  meaning  (i.e.,  nay  have  been  a  variable, 
operator,  constant,  etc.)  previously.  Whenever  a  substitution 
definition  is  assigned  to  a  syabol.  the  previous  meaning  is 
pushed  down.  Previous  definitions  of  a  syabol  nay  be  restored 
by  means  of  the  'POP  SUBSTITUTE'  statement,  which  has  the  fora: 

'POP  SUBSTITUTE'  X 

This  will  cause  the  last  previous  meaning  of  X  to  be 
restored.  There  is  no  limit  on  the  number  of  redefinitions  of  a 
symbol. 
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For  exaaple,  the  following  program  section: 

•SUBSTITUTE'  SIZE  16  'END  SUBSTITUTE*; 

•SUBSTITUTE'  PI  3.1415927  • END  SUBSTITUTE*; 

•SUBSTITUTE'  ♦  -  ' END  SUBSTITUTE' ; 

•SUBSTITUTE'  IF  'IF'  ' END  SUBSTITUTE'; 

•SUBSTITUTE'  Q  3  *  Q  'END  SUBSTITUTE'; 

'SUBSTITUTE'  Q  2  *  Q  'END  SUBSTITUTE'; 

•SUBSTITUTE'  A  'FIXED  ABBAX*  (15, SIZE)  'END  SUBSTITUTE'; 
•SUBSTITUTE'  TEMP  :=  'END  SUBSTITUTE'; 

•SUBSTITUTE'  :*  =  'END  SUBSTITUTE'; 

'SUBSTITUTE'  =  TEMP  'END  SUBSTITUTE'; 

•POP  SUBSTITUTE'  TEMP  ; 

•DECLARE'  XYZ  A  ; 

IF  HNH  6  DON,  EST  •  1ST  ♦  1  5 
BOR  1  =  Q  /  PI; 

•POP  SUBSTITUTE'  Q; 

BOR2  =  Q  /  PI; 
is  equivalent  to 

•DECLARE'  XYZ  'FIXED  ABBAY'  (15,16); 

•IF'  HNH  6  DON,  EST  :  =  EST  -  1; 

BOR1  :=  2  *  3  *  Q  /  3.1415927; 

BOR2  :=  3  *  Q  /  3.1415927; 
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The  'INCLUDE'  foci  allows  the  progranaer  to  specify,  as  a 
part  of  the  text  of  his  source  prograa,  a  place  where  sore 
source  text  nay  be  obtained.  The  text  so  obtained  is  inserted 
in  place  of  the  *  INCLUDE'  fora  at  cospile  tine. 

Syntax:  'INCLUDE'  character-syabol 

The  character  string  in  the  character-syabol  (Sec.  2. 1.4.1) 
specifies  the  location  of  the  text  to  be  included.  The 
'INCLUDE'  fora  itself  nay  occur  anywhere  in  the  source  progran 
(except  within  a  synbol  or  consent)  —  it  is  not  Considered  a 
statenent.  The  included  text  is  obtained  as  a  sequence  of 
characters,  and  is  scanned  like  any  other  portion  of  source 
text;  it  replaces  the  'INCLUDE'  fora  which  specified  it,  and 
should  therefore  be  syntactically  valid  in  the  context  of  the 
'INCLUDE'  forn.  Included  text  say  contain  further  'INCLUDE' 
forns. 

The  character  string  in  the  character-synbol  is  taken  as  a 
data  set  naae,  and  is  interpreted  in  a  systea-dependent  fashion 
(see  Section  6.3.2). 

Example:  'INCLUDE*  "DEFPACKAGE" 
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-S££iion_2j _ Bgjifli&isaal-gagUlti 

This  section  has  not  yet  been  written.  Facilities  are 
planned  which  will  allow  the  prograaaer  to  define  new  data 
types,  new  operations,  new  operators,  and  new  statements.  Mew 
constructs  would  be  defined  either  in  terns  of  existing 
constructs  (pre>defined  or  user>def ined)  or  in  terns  of  an 
assenbler-like  language. 

The  feasibility  of  an  effective  definitional  facility  has 
already  been  established  by  actual  experinents  with  BAD/I.  (See 
the  nenor&ndun  by  Srodawa  which  is  cited  in  the  Preface.)  It 
renains  to  design  and  inplenent  a  clean  nechanisn  which  allows 
the  user  to  express  his  definitions  in  a  reasonable  way.  This 
requires  nore  research. 

One  of  the  authors  (Springer)  is  now  writing  a  doctoral 
dissertation  which  describes  an  experimental  definitional 
facility  based  on  NAD/I. 
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Section  10:  Example  BAD/I  Programs 


■Se£tioa_i0i_Eiafi£l£-JA£ZI-£ifi9£ais 


This  exaaple  shows  tvo  HAD/I  procedures,  CALLSQBT  and  SQRT. 
CALLSQRT  is  the  "earn"  prograa  and  calls  upon  the  procedure 
SQRT.  There  is  no  lain  prograa  declaration;  CALLSQBT  becomes 
the  aain  prograa  by  being  the  first  prograa  executed  by  the 
operating  system.  The  default  node  is  'FLOATING  SHORT'  since  it 
is  not  otherwise  declared.  The  procedure  CALLSQBT  reads  a 
nuaber,  then  prints  the  nuaber  entered  followed  by  the  value 
returned  by  SQBT.  The  procedure  SQBT  coaputes  the  sguare  root 
of  its  arguaent  using  a  Nevton-Baphson  approxiaation  technique. 


•PROCEDURE'  CALLSQBT. ; 

CALLSQBT:  •  WRITE'  <" •  8ENTER  X:'*")  ; 

•READ'  (“WF*"),  X; 

•WRITE'  <•"  X=',WF,'  SQRT  OF  X=  •  ,WF*“)  ,X,  SQRT.  (X)  ; 

•GO  TO*  CALISQRT 

•END* 


•PROCEDURE'  SQBT.  (X)  ; 

•PRESET'  EPS  :=  .0001; 

SQRT:  'IF*  X=0.  |  X*1.,  'RETURN'  X; 

Y  :=  X; 

LOOP:  Z  :=  (Y+X/Y)  /2.  ; 

•IF'  .ABS.  (Y-Z)  <  EPS,  'RETURN'  Z; 

Y  :=  Z; 

•GO  TO'  LOOP 
•  END' 


The  following  is  a  sample  run  of  the  procedures  CALLSQBT 
and  SQRT.  The  numbers  following  “ENTER  X:"  are  input  data  typed 
by  the  user. 


ENTER  X:  100 
X=  100.0000 
ENTER  X:  1.0 
X=  1.0000 
ENTER  X:  0. 

X  =  .0000 
ENTER  X:  4.0 
X=  4.0000 
ENTER  X:  t 

*♦**  ALL  INPUT 


0 

SQRT  OF  X= 
SQRT  OF  X= 

SQRT  OF  X= 
SQRT  OF  X= 

DATA  HAS  BEEN 


10.0000 

1.0000 

.0000 

2.0000 

PROCESSED  -  AT 


LOCATION  500788 
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The  two  independent  procedures  CALLSQRT  and  SQRT  can  be 
coabined  into  one  progran  by  Baking  5QHT  internal  to  CALLSQBT. 
SQRT  Bust  be  declared  'ACCESSIBLE'  if  it  is  to  be  referenced  in 
other  prograns.  The  saaple  run  of  this  prograa  is  identical  to 
the  previous  sample  run. 


' PROCEDURE'  CALLSQBT.; 

CALLSQBT:  'WRITE'  {"'CENTER  X:'*"); 

•READ'  ("WF*") ,  X; 

•WRITE*  {"*  X=',WF,'  SQRT  OF  X=  •  ,  WF*M)  ,  X,  SQRT  .  (X)  ; 
•GO  TO*  CALLSQRT; 

•PROCEDURE*  SQRT.  (X)  ; 

•PRESET*  EPS  :=  .0001; 

S£RT:  'IF'  X=0.  |  X=1.,  'RETURN'  X; 

Y  :=  X; 

LOC  '  :  Z  :=  (Y+X/Y)/2.  ; 

•IF*  .ABS.  (Y-Z)  <  EPS,  'RETURN'  Z; 

Y  :=  Z; 

•GO  TO*  LOOP 
•END' 

'END' 
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The  procedure  HASH  aaintains  a  hashed  symbol  table.  It  is 
called  with  one  argunent,  the  'CHARACTER' (8)  sysbol  to  be 
hashed.  HASH  then  cosputes  a  key  with  a  value  ranging  fros  0 
through  7  which  is  the  hash  of  the  symbol  nase.  The  operator 
.AS.  is  used  to  treat  the  sysbol  as  two  integers  in  the 
computation  of  the  key.  Finally,  the  appropriate  thread  is 
searched  for  a  sysbol  table  entry  having  the  argunent  as  its 
name.  If  no  such  entry  is  found,  a  new  sysbol  table  entry  is 
allocated  using  the  'ALLOCATE'  statesent  and  inserted  at  the 
head  of  the  appropriate  thread.  HASH  returns  the  pointer  to  the 
requested  sysbol  table  entry. 

The  procedure  HASHTEST  requests  a  sysbol  as  input,  calls 
HASH  with  the  symbol  as  the  argument,  and  prints  the  pointer 
returned  and  the  contents  of  the  sysbol  table  entry.  HASHTEST 
is  the  main  program. 


'PROCEDURE'  HASHTEST.; 

•DECLARE*  'DEFAULT'  'INTEGER'; 

'DECLARE'  HASH  'ENTRY  POINT'  'POINTER'; 

•DECLARE'  PTR  'POINTER'; 

•DECLARE*  SYMENT  'BASED'  ' COMPONENT  STRUCTURED 

•  POINTER* , 

•CHARACTER'  (8)  , 

•  INTEGER' , 

•BIT*  (8)  )  ; 

•DECLARE'  SYMBOL  'CHARACTER*  (8)  ; 

HASHTEST:  • WRITE*  ("• &ENTER  NEXT  SYMBOL:'*"); 

•READ*  ("C8. 8*") ,  SYMBOL; 

PTR  :=  HASH.  (SYMBOL)  ; 

SYMENT  .ALLOC.  PTR; 

'WRITE'  ("'SYMBOL  TABLE  ENTRY  AT:  ',X8 .«,'  PTR=' , 
X8 . 4 , '  NAME=',C8.8*") ,  PTR, 

S  YM  ENT  ( 1)  ,SYMENT  (2)  ; 

'GO  TO'  HASHTEST; 

•END' 
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•PROCEDURE'  HASH.  (SYMBOL)  ; 


•DECLARE  DEFAULT' 
' DECLARE'  SYMBOL 
•DECLARE'  HASH  *E 
•DECLARE'  SYMENT 
•  POINTER ', 
•CHARACTER'  (8) 
•INTEGER', 
•BIT' (8)  ); 
'DECLARE'  THREADS 
•DECLARE*  FINGER 
•DECLARE'  NAMES  • 
•PRESET'  THREADS 


•  INTEGER' ; 

•CHARACTER*  (8)  ; 

NTSY  POINT*  'POINTER'; 

•BASED'  'COMPONENT  STRUCTURE' ( 
NEXT  SYMBOL  » 

SYMBOL  NAME  » 

STORAGE  ALLOC  » 

CLASS  MODE  » 

ARRAY'  (0..  .6)  'POINTER1; 


« 

« 

<< 

« 

•  FIXED 


•POINTER*  ; 

FIXED  ARRAY' (2) 
:=  7  (•  NULL  PT') 


•INTEGER1 


HASH*.  (NAMES  .AS.  ('CHARACTER*  (8)  )  )  :=  SYMBOL; 

KEY  :-  .  ABS.  (  (NAMES  (1)  +  NAMES  (2)  )  .  REM.  7)  ; 
•WRITE'  ("»****  KEY=* ,1*") ,KEY; 

FINGER  :=  THREADS (KEY) ; 

LOOP:  'IF'  FINGER  =  'NULL  PT' ; 

•ALLOCATE*  SYMENT; 

SYMENT  ( 1)  :=  THREADS  (KEY)  ; 

THREADS (KEY)  :  =  . PT.  SYMENT; 

SYMENT  (2)  :=  SYMBOL; 

SYMENT (4)  :=  SYMENT (3)  :=  0; 

•ELSE'; 

SYMENT  .ALLOC.  FINGER; 

•IF*  SYMBOL  =  SYMENT (2) ,  'GO  TO*  FOUND; 
FINGER  :=  SYMENT  ( 1)  ; 

•GO  TO'  LCCE 
•END*  ; 

FOUND:  'RETURN'  .PT.  SYMENT 

•END' 


The  following  is  a  sample  run  of  the  procedures  HASHTEST 
and  HASH. 


ENTER  NEXT  SYMBOL:  a 
****  KEY  =  1 

SYMBOL  TABLE  ENTRY  AT:  00500068  PTR=00000000  NAME-A 
ENTER  NEXT  SYMBOL:  b 
****  KEY=  2 

SYHBOL  TABLE  ENTRY  AT:  00500080  PTR=00000000  N AME=B 
ENTER  NEXT  SYMBOL:  C 
****  KEY=  3 

SYMBOL  TABLE  ENTRY  AT:  00500098  PTR=00000000  N AME=C 
ENTER  NEXT  SYMBOL:  d 
****  KEY=  4 

SYMBOL  TABLE  ENTRY  AT:  005000BO  PTR=00000000  NAME=D 
ENTER  NEXT  SYMBOL:  e 
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****  KEY  =  b 

SYMBOL  TABLE  ENTRY  AT:  00500C66 
ENTER  NEXT  SYMBOL:  f 
****  KEY=  6 

SYMBOL  TABLE  ENTRY  AT:  00500C80 
ENTER  NEXT  SYMBOL:  g 
****  KEY=  0 

SYMBOL  TABLE  ENTRY  AT:  00500C98 
ENTER  NEXT  SYMBOL:  h 
****  KEY=  1 

SYMBOL  TABLE  ENTRY  AT:  00500CB0 
ENTER  NEXT  SYMBOL:  i 
****  KEY=  2 

SYMBOL  TABLE  ENTRY  AT:  00500CC8 
ENTER  NEXT  SYMBOL:  a 
KEY=  1 

SYMBOL  TABLE  ENTRY  AT:  00500068 
ENTER  NEXT  SYMBOL:  h 
****  KEY  =  1 

SYMBOL  TABLE  ENTRY  AT:  00500CB0 
ENTER  NEXT  SYMBOL:  aardvark 
****  KEY=:  4 

SYMBOL  TABLE  ENTRY  AT:  00500CE0 
ENTER  NEXT  SYMBOL:  guail 
♦♦♦♦  KEY=  0 

SYMBOL  TABLE  ENTRY  AT:  00500CF8 
ENTER  NEXT  SYMBOL:  wunerful 
****  KEY=  2 

SYMBOL  TABLE  ENTRY  AT:  00500D10 
ENTER  NEXT  SYMBOL:  a 
****  KEY=  1 

SYMBOL  TABLE  ENTRY  AT:  00500068 
ENTER  NEXT  SYMBOL:  t 


PTR=00000000 

PTH=00000000 

PTR=00000000 

PTR=00500068 

PTR=00500080 

PTR=00000000 

PTR=00500068 

PTRS005000B0 

PTB=00500C98 

PTR=0C500CC8 

PTR=00000000 


NAHE=E 

NAME=F 

NAME=G 

NAME-H 

NAME- I 

NAME= A 

NAME=H 

N AM E= AARDVARK 

NAME-QUAIL 

NAHE-HUNERFUL 

NAME=A 


****  ALL  INPUT  DATA  HAS  BEEN  PROCESSED  -  AT  LOCATION  5009E0 
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PART  II  —  USER'S  GUIDE  FOR  HAD/I  IN  NTS 


Contents:  The  object  nodules  which  mike  up  the  NAC/I 

compiler. 

Purpose:  To  compile  HAD/I  programs. 

Usage:  The  compiler  is  invoked  by  a  RUN  command, 

specifying  ♦NADI  as  the  object  file. 

logical  I/O  units  referenced: 

SCARDS  -  The  source  program  to  be  compiled. 

SPRINT  -  The  compiler  listings  and 
diagnostics. 

SPUNCH  -  The  resulting  object  module.  This 
can  be  controlled  by  the  DECK 
option. 

Examples:  $RUN  ♦NADI 

(SCARDS,  SPRINT,  SPUNCH  default  to  *SOURCE* 
♦SINK*,  *PUNCH*f  respectively) 

$RUN  *HAD1  SPUNCH=-F1  PAR=NOSOURCE 

Description:  See  Part  I  of  this  manual  for  a  description  of 

the  HAD/I  Language. 


Compiler  options  can  be  passed  by  the  optional  PAB=  field 
on  the  RUN  command.  This  field  must  be  the  last  in  the  sequence 
of  specifications  on  the  RUN  command.  The  PAR=  field  consists 
of  a  list  of  option  specifications  separated  by  blanks  or 
commas.  Many  of  the  option  keywords  have  abbreviations.  Some 
options  have  pairs  of  alternative  keywords  of  the  forms 
"option",  "NOoption".  In  each  case,  the  "option"  keyword 
requests  a  service,  and  the  "NOoption"  keyword  rejects  the 
service.  Each  option  has  a  default.  The  default  value  for  some 
options  depends  upon  whether  the  compiler  is  being  run  in  batch 
or  from  a  terminal.  In  case  of  conflicting  options,  the  right¬ 
most  option  specification  has  effect.  A  list  of  the  option 
keywords,  along  with  their  abbreviations,  defaults,  and  meanings 
follows: 
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KEYWORD  ABBREVIATION 

SOURCE  S 

NOSOURCE  NS 


MlMmLALUX 

Batch:  SOURCE 
Terminal:  NOSbUBCE 


Reguests  that  a  listing  of  the  HAD/I  source  program  he 
written  to  SPRINT. 


DECK  D  DECK 

NODECK  ND 

Reguests  that  the  generated  object  module  be  written 
to  SPUNCH. 


LIST  L  NOLIST 

NOLIST  NL 

Reguests  that  a  listing  of  the  generated  machine 
instructions  and  a  storage  map  be  written  to  SPRINT. 


NAP  N  NONAP 

NOHAP  NN 

Reguests  that  a  storage  map  shoving  the  storage 
assignments  of  all  variables  and  constants  be  written  to 
SPRINT. 


XREF  X  NOXHEF 

NOXREF  NX 

Reguests  that  a  cross-reference  table  for  all  the 
identifiers  in  the  program  be  written  to  SPRINT. 


ATR  A  Batch:  ATR 

NOATR  NA  Terminal:  NOATR 

Reguests  that  a  list  of  the  attributes  of  each 
identifier  be  written  to  SPRINT. 


OPLIST  OL  Batch:  OPLIST 

NOOPLIST  NOL  Terminal:  HOOPLIST 

Reguests  that  a  listing  of  the  option  assignments  for 
this  compilation  be  written  to  SPRINT. 
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SORMGIN= (m,  n)  SM  =  SORKGIN=  (1, 256) 

=■  f  n 
=  (m  n) 

=a  n 

Specifies  the  left  and  right  aargins  of  the  source 
program  lines  to  be  jj  and  respectively,  where  1Sm<n<256. 
All  text  outside  of  this  range  is  ignored.  For  instance, 
to  read  source  lines  which  have  sequence-id  inforaation  in 
columns  73  to  80,  specify  m=1  and  n=72. 


FREEFORM  FF  FREEFORM 
LINEFORM  LF 

FREEFORM  specifies  that  the  input  text  is  completely 
free-form,  extending  froa  line  to  line  as  a  continuous 
sequence  of  characters,  with  statements  separated  by 
semicolons.  LINEFORM  specifies  that  each  input  line  will 
have  a  semicolon  automatically  appended  to  it  unless  the 
last  character  (the  one  at  the  right  margin)  is  the 
continuation  character.  The  continuation  character  is 
specified  with  CCNTCHAR  option. 


CONTCHAR=C  CC=  CONTCHAR=+ 

Specifies  that  c  is  the  continuation  character  to  be 
used  in  conjunction  with  the  LINEFORM  option. 


SOURCETAB=n  ST=  S0URCETAB=6 

Specifies  that  the  source  program,  if  it  is  printed, 
be  printed  beginning  in  column  n_j_  The  source  program 
listing  itself  is  controlled  by  the  SOURCE  option. 


SIZE=(m,n)  SIZE=  (3,255) 

=m,  n 
=  (m  n) 

=m  n 


Specifies  the  sizes  of  two  internal  translator  tables. 
M  specifies  the  aaxiaua  number  of  control  sections.  N 
specifies  the  maximum  number  of  "basetab"  entries*  These 
need  not  be  given  except  for  very  large  programs. 
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Section  12:  Saaple  Runs  of  RAD/I  in  RTS 


Ls.Sjm^gi-£.4BZJLiiUilS 


The  following  excerpt  f row  a  terminal  session  shows  the 
runs  of  the  HAD/I  coapiler  used  to  generate  the  saaple  output  of 
section  10.1.  Notice  that  the  coapiler  is  run  twice,  once  for 
each  prograa.  Also  notice  that  the  defaults  for  terainal 
operation  are  such  that  no  listings  are  produced.  In  this  and 
all  following  exaaples  lower-case  characters  are  typed  by  the 
user.  Lines  preceded  by  a  "#"  are  coanands  to  RTS.  Soae  lines 
have  been  truncated  on  the  right  to  fit  within  the  coluan  width 
of  this  report. 


#list  callsgrt 


> 

1 

•PROCEDURE*  CALLSQRT.; 

> 

2 

CALLSQRT: 

•WRITE* ("'6ENTER  X:**"); 

> 

3 

•READ*  ("BP*") ,  X; 

> 

4 

•WRITE*  ("•  X= • , WF, •  SQRT  OF  X= 

> 

5 

•GO  TO1  CALLSQRT 

> 

6 

•END* 

> 

7 

> 

8 

> 

9 

> 

10 

> 

11 

•PROCEDURE'  SQRT. (X) ; 

> 

12 

•PRESET*  EPS  :=  .0001; 

> 

13 

SQRT: 

•IF*  X=0.  |  X*1. ,  •RETURN*  X; 

> 

14 

Y  ;=  X; 

> 

15 

LOOP: 

Z  ;=  (Y+X/Y) /2. ; 

> 

16 

•IF*  .ABS.  (Y-Z)  <  EPS,  'RETURN* 

> 

17 

Y  :=  Z; 

> 

18 

•GO  TO*  LOOP 

> 

19 

•END* 

#END  OF  FILE 

#run  *mad1  scards=callsqrt (1, 10)  spunch=-load 
♦EXECUTION  BEGINS 


HAD/I  COHPILER  VERSION  PR240-093943. 


RAD/I  COMPILER  STATISTIC  PASS1 

CPU  TIME  (SEC)  1.125 

ELAPSED  TIME  (SEC)  2.423 

CPU  VM  INTEGRAL  (PG-SEC)  168.693 

MEAN  VM  SIZE  (PGS)  113.569 

DRUM  READS  29 

STATEMENTS  5 

DESCRIPTORS  35 


ALLOC 

1.575 

2.637 

238.740 

116.595 

27 


♦EXECUTION  TERMINATED 

♦  run  *mad1  scards=callsqrt  (11)  spunch=-load  (last+1) 


PASS  2 
2.981 
8.093 
456.407 
121.376 


8 

3 
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•EXECUTION  BEGINS 


NAD/I  COMPILES  VEBSION  PH240-093943. 


MAD/I  COMPILES  STATISTIC 

PASS1 

ALLOC 

PASS2 

CPU  TIME 

(SEC) 

.988 

1.464 

2.854 

ELAPSED  TIME 

(SEC) 

1.343 

1.654 

3.496 

CPU  VM  INTEGBAL  (PG-SEC) 

147.653 

222.130 

436.374 

MEAN  VM  SIZE 

(PGS) 

125.010 

125.994 

127.794 

DBUM  BEADS 

1 

4 

STATEMENTS 

10 

DESCBIPTOBS 

65 

•EXECUTION  TEBHINATED 

•run  -load 
•EXECUTION  BEGINS 

ENTER  X:  100.0 

X=  100.0000  SQRT 

OP  X* 

10.0000 

ENTER  X:  1.0 

X=  1.0000  SQBT 

OF  X* 

1.0000 

ENTER  X:  0. 

X=  .0000  SQRT 

OF  X* 

.0000 

ENTER  X:  4.0 

X=  4.0000  SQRT 

ENTER  X:  t 

OF  X« 

2.0000 

****  ALL  INPUT  DATA  HAS  BEEN  PBOCESSED  -  AT  LOCATION  500788 
•EXECUTION  TEBHINATED 
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Section  12:  Sample  Runs  of  RAD/I  in  UTS 


12.2_.  Sample.  Bud  of  HASHTISI_and-HASH 

The  following  excerpt  fron  a  terminal  session  shows  the 
runs  of  the  HAD/I  compiler  used  to  generate  the  sanple  output  of 
Section  10.2.  The  option  £>1  chosen  on  the  first  run  caused  all 
the  compiler  option  assignments  to  be  printed,  likewise*  the 
souyce  option  on  both  compilations  caused  the  source  listings  to 
be  produced.  Mote  that  on  line  14  of  RASH  the  'MOIL  PT'  has 
been  replaced  by  0.  This  is  necessary  due  to  a  minor  bug  in  the 
compiler  which  does  not  allow  'MULL  PT'  to  work  properly  in  a 
•PRESET'  statement. 


fempty  -deck 
#DONE. 

#run  *mad1  scards=hashtest  spunch=-deck  par=source,ol 
EXECUTION  BEGINS 
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MAO/I  COMPILES  OPTION  ASSIGNMENTS: 


SOU  BCE, DECK, NOLIST, SOBMGIN=  (001,256) , FBEEFOBM ,CONTCHAR 
SOO  BCETAB=006,SIZE= (0003,0255) , COMPILE 
NOHAP, NOZBEF, NOATB, OPLIST, 0SEB, ADDENDA 


MAD/I  COMPILES  VEBSION  PR240-093943. 
HAD/I  CONPILEB  SOOBCE  PBOGBAM  LISTING 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011  HASHTEST: 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 


'PBOCEDUBE '  HASHTEST.; 

'DECLARE'  ‘DEFAULT*  * INTEGEB' ; 

•DECLABE*  HASH  *  ENTRY  POINT*  ' POINTEB* ; 
•DECLABE*  PTB  * POINTEB'; 

•DECLABE*  STMENT  'BASED*  'COMPONENT  STBUCTUBE*  ( 
'POINTER', 

•CHABACTER* (8)  , 

•INTEGER*, 

'BIT*  (8)  ); 

•DECLARE*  SYMBOL  • CHARACTER* (8) ; 

'NRITE'  ("'CENTER  NEXT  SYMBOL:'***); 

'BEAD'  ("C8. 8*") ,  SYMBOL; 

PTB  :  =  HASH.  (SYMBOL)  ; 

SYMENT  .ALLOC.  PTR; 

'NBITE* ("'SYMBOL  TABLE  ENTBY  AT:  ',X8.4,*  PTB=* 
X8.4t*  NAME** ,C8.8*") ,  PTR, 

SYMENT  ( 1)  , SYMENT  (2)  ; 

'GO  TO'  HASHTEST; 

'END' 


MAD/I  COMPILER  STATISTIC 
CPU  TIME  (SEC) 

ELAPSED  TIME  (SEC) 

CPU  VH  INTEGRAL  (PG-SEC) 
MEAN  VH  SIZE  (PGS) 

DRUM  READS 
STATEMENTS 
DESCRIPTORS 
•EXECUTION  TERMINATED 


PA  SSI 
2.151 
3.370 
322.617 
88.212 
13 
13 
92 


•cun  *nad1  scaeds=hash  spunch=-deck  ( 1000) 


•EXECUTION  BEGINS 


ALLOC 

2.307 

3.364 

350.213 

88.768 

17 


par  =s 


PASS2 

3.612 

4.930 

552.274  12 

89.635  2 

4 


MAD/I  COMPILER  VERSION  PR240-093943. 
MAD/I  COMPILER  SOURCE  PROGRAM  LISTING 


0001  'PROCEDURE*  HASH. (SYMBOL) ; 

0002 

0003  'DECLARE  DEFAULT'  'INTEGER'; 

0004  'DECLARE'  SYMBOL  'CHARACTER' (8)  ; 
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0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016  HASH: 

0017 

0018 

0019 

0020  LOOP: 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 

0032  FOUND: 
0033 


•DECLARE' 

•DECLARE' 
•POINTER', 
•CHARACTER'  (8)  , 
•INTEGER*  , 

•BIT'  (8)  )  ; 
•DECLARE'  THREADS 


HASH  'ENTRY  POINT'  'POINTER'; 

SYMENT  'BASED'  1 COMPONENT  STRUCTURE' ( 
NEXT  SYMBOL  » 

SYMBOL  NAME  » 

STORAGE  ATLOC  » 

CLASS  MODE  » 

ARRAY' (0... 6)  'POINTER 


« 

« 

« 

« 

•FIXED 


•DECLARE'  FINGER  'POINTER'; 
•DECLARE'  NAMES  'FIXED  ARRAY' 
•PRESET'  THREADS  :  =  7(0); 


(2) 


(NAMES  .AS. ('CHARACTER'  (8)))  :  =  SYMBOL; 
KEY  :  =  .  ABS.  ( (NAMES  (1)  +NAMES  (2) )  .BEM.7)  ; 
•WRITE '  ("•****  KEY  =  *  ,1*")  ,KEY; 

FINGER  :=  THREADS  (KEY)  ; 

•IF'  FINGER  =  'NULL  PT'; 

•ALLOCATE'  SYMENT; 

SYMENT  (1)  :=  THREADS  (KEY)  ; 

THREADS  (KEY)  :=  .PT.  SYMENT; 

SYMENT  (2)  :=  SYMBOL; 

SYMENT  (4)  :=  SYMENT  (3)  :-  0; 

•ELSE'  ; 

SYMENT  .ALLOC.  FINGER; 

•IF'  SYMBOL  =  SYMENT (2) ,  'GO  TO*  FOUND; 
FINGER  :=  SYMENT (1) ; 

•GO  TO'  LOOP 
•END'  ; 

•RETURN'  .PT.  SYMENT 
•END' 


MAD/I  COMPILER  STATISTIC 
CPU  TIME  (SEC) 

ELAPSED  TIME  (SEC) 

CPU  VM  INTEGRAL  (PG-SEC) 
MEAN  VM  SIZE  (FGS) 

DRUM  READS 
STATEMENTS 
DESCRIPTORS 
♦EXECUTION  TERMINATED 
♦run  -deck 
♦EXECUTION  BEGINS 

ENTER  NEXT  SYMBOL:  a 
****  KEY=  1 

SYMBOL  TABLE  ENTRY  AT: 

ENTER  NEXT  SYMBOL:  b 
****  kEY=  2 

SYMBOL  TABLE  ENTRY  AT: 

ENTER  NEXT  SYMBOL:  C 
****  KSY=  3 

SYMBOL  TABLE  ENTRY  AT: 

ENTER  NEXT  SYMBOL:  d 
****  KEY=  4 


PASS1 

ALLOC 

PASS 

2.928 

3.026 

7.363 

4.663 

4.773 

11.367 

439.160 

459.257 

1126.523 

92.347 

92.970 

94.465 

29 

18 

11 

26 

202 

00500068  PTR=00000000  N AME=A 

00500080  PTR=00000000  NAME=B 

00500098  PTR=00000000  NAME=C 


20 

2 


2 
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SYMBOL  TABLE  ENTRY  AT:  005000B0  PTR=CD000000  NAME=D 
ENTER  NEXT  SYMBOL:  e 
****  KEY=  5 


SYMBOL  TABLE  EKTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  6 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  0 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  1 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  2 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  1 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  1 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
****  KEY=  4 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
♦♦♦♦  KEy=  0 

SYMBOL  TABLE  ENTRY 
ENTER  NEXT  SYMBOL: 
rEY=  2 


AT:  00500C68 
f 

AT:  00500C80 

g 

AT:  00500C98 
h 

AT:  00500CB0 
i 

AT:  00500CC8 
a 

AT:  00500068 
h 

AT:  00500CB0 
aardvar k 

AT:  00500CE0 
quail 

AT:  00500CF8 
wunerful 


PTR=00000000  NAME=E 


PTR=00000000  NAME=F 


PTR=00000000  NAME=G 


PTR=00500068  NAME=H 


PTR=00500080  NAME=I 


PTR=00000000  NAME=A 


PTR=00500068  NAME-H 


PTR=005000B0  NAME=AARDVARK 


PTR=00500C98  NAME=QUAIL 


SYMBOL  TABLE  ENTRY  AT:  00500D10  PTR=00500CC8  NAME= WONERFUL 
ENTER  NEXT  SYMBOL:  a 
****  KEY=  1 

SYMBOL  TABLE  ENTRY  AT:  00500068  PTR=00000000  NAME=A 
ENTER  NEXT  SYMBOL:  t 


****  ALL  INPUT  DATA  HAS  BEEN  PROCESSED  -  AT  LOCATION  5009E0 
♦EXECUTION  TERMINATED 
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12.3 _ Sample  Run  of  Combined  CALLSORT  and  SORT 


The  following  excerpt  from  a  terminal  session  shows  a  run 
of  the  MAD/I  compiler  on  the  procedures  CALLSQRT  and  SQBT  as 
combined  into  one  program.  All  compiler  output  (except  for 
internal  compiler  debugging  aids)  is  turned  on  in  this  example. 
The  output  is  described  in  some  detail  below. 

The  first  page  consists  of  the  option  assignments  and 
source  program  listing.  Each  line  of  the  program  is  given  a 
line  number  which  is  used  as  a  reference  in  error  messages  and 
ob-ject  program  listing. 

The  next  page  gives  the  storage  allocation  of  the  constants 
in  the  program.  Other  constants  are  generated  as  needed  and  are 
printed  interspersed  with  the  object  program  listing  which 
follows.  The  two-byte  and  six-byte  fields  at  the  beginning  of 
each  line  are  the  control  section  identification  and  relocatable 
address  (within  the  control  section)  of  the  beginning  of  the 
data.  The  third  field  is  the  text  of  the  constant.  All  numbers 
are  in  hexadecimal. 

The  next  five  pages  are  a  listing  of  the  generated  object 
program.  Tho  object  code  is  preceded  by  the  line  or  lines  which 
caused  it  to  be  generated.  The  first  three  fields  are  the 
control  section  identification,  relocatable  address,  and  text, 
as  described  above.  A  is  printed  in  lines  which  set  out-of¬ 
line  text.  There  are  two  types  of  out-of-line  text.  First, 
instructions  which  reference  addresses  not  yet  generated  are 
modified  (actually,  completed)  by  out-of-line  text  when  the 
forward  reference  is  resolved.  Second,  additional  constants  and 
internal  variables  are  allocated  out-of-line  as  required.  The 
remainder  of  the  line  is  a  pseudo-assembler  code  representation 
of  the  line.  Run-time  symbol  table  entries  and  the  base  table 
(used  for  addressability)  are  generated  at  the  end  of  the  object 
program  listing. 

Next  come  two  pages  giving  the  external  symbol  dictionary 
and  relocation  dictionary.  The  notation  used  in  these  tables  is 
similar  to  that  used  in  other  System/360  translators. 

The  next  page  of  output  gives  a  storage  map  showing  the 
allocation  of  all  variables  and  constants  in  the  program.  The 
first  field  gives  the  control  section  identification  of  the 
allocation.  If  the  item  has  no  allocation  in  this  program,  "00" 
is  given  as  the  control  section  identification.  The  next  field 
gives  the  storage  class  of  the  item.  The  correspondence  is  as 
follows: 


01  Static 

02  External 
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03  Formal  Parameter 
07  Based 

The  next  field  gives  the  displacement  within  the  base  table  of 
the  base  address  constant  to  be  used  in  referencing  this  item. 
Notice  tnat  formal  parameters,  external  symbols,  and  based 
variables  always  have  a  unigue  base  table  entry,  while  many 
static  items  may  be  referenced  using  the  same  base  table  entry. 
The  last  field  gives  the  relocatable  address  of  the  item  within 
the  control  section. 

The  last  page  gives  the  attributes  of  each  symbol  in  the 
program  and  if;  self-explanatory.  The  numeric  fields  are 
identical  to  those  given  in  the  storage  map. 


♦empty  -deck 
♦DONG. 

♦run  *mad1  scards=callsgrt2  spunch=-deck  par=s,a,l,m,ol 
♦EXECUTION  BEGINS 
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MAD/I  COMPILER  OPTION  ASSIGNMENTS: 

SOURCE, DECK, LIST, SORMGIN=  (001,256) , FREEFORM, CONTCHAR=+ 
SOURCETAB=006 ,SIZE=  (0003,0255) , COMPILE 
MAP,NOXREF,ATR, OP LI  ST, USER, ADDENDA 

MAD/I  COMPILER  VERSION  PR240-093943. 

MAD/I  COMPILER  SOURCE  PROGRAM  LISTING  . 


0001  'PROCEDURE*  CALLSQRT. ; 

0002  CALLSQRT:  ' WRITE '("• SENTER  X:'*"); 

0003  'READ'  ("WF*") ,  X; 

0004  'WRITE*  (•"  X= '  ,  WF,  '  SQRT  OF  X=* , WF*") ,X,SQRT. ( 

0005  'GO  TO'  CALLSQRT; 

0006 

0007  'PROCEDURE*  SQRT. (X) ; 

0008  'PRESET*  EPS  :=  .0001; 

0009  SQRT:  'IF*  X=0.  |  X=1.,  'RETURN'  X; 

0010  Y  :=  X; 

0011  LOOP:  Z  :=  (Y*X/Y) /2 . ; 

0012  'IF'  .ABS.  (Y-Z)  <  EPS,  'RETURN'  Z; 

0013  Y  :=  Z; 

0014  'GO  TC'  LOOP 

0015  'END* 

0016  'END' 
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STORAGE  ALLOCATION 


01  000000 

01  000064  41200000 

01  000068  41100000 

01  00006C  00000000 

01  000070  7D40E77E7D6BE6C66B7D 

01  00008 A  E6C65C 

01  00008D  7D50C5D5E3C5D940E77A 


ICALLSQR  CSECT 

♦  CONST  2. 

♦  CONST  1„ 

+  CONST  0. 

♦  CONST  "•  X=',HF,'  SQ 

♦  CONST  «MF*" 

+  CONST  ‘"6ENTER  X:'*" 
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HAD/I  COMPILER  OBJECT  PROGRAM  LISTING  ... 

02  000000  SCALLSQR  CSECT 

*0001  'PROCEDURE'  CALLSQRT. J 


*0002  CALLSQRT:  •  WRITE'  ("'SENTER  X:  •*••) 

• 

9 

02 

000000 

CNOP 

0,4 

02 

000000 

CALLSQRT 

EQU 

* 

02 

000000 

90ECD00C 

STM 

14^12,12(13) 

02 

000004 

58C0F020 

L 

1 2,32  (,  15) 

02 

000008 

58E0C00C 

L 

1 4,%STKADR 

02 

oooooc 

58E0E004 

I. 

14,4(,14) 

02 

000010 

50E0D008 

ST 

14,8  (,  13) 

02 

000014 

50D0E004 

ST 

13,4  (,  14) 

02 

000018 

18DE 

LR 

13,14 

02 

00001A 

47F0F028 

B 

40  (,  1 5) 

02 

000020 

00000000 

DC 

A  (XBASETAB) 

02 

000024 

58C0F020 

L 

12,32  (,  15) 

02 

000028 

IB  1 1 

SR 

1,1 

02 

00002A 

5840C00C 

L 

4,XSTKADR 

02 

00002E 

41 EO  D04  8 

LA 

14,72  (,13) 

02 

000032 

98234000 

LM 

2, 3, 0(4) 

02 

000036 

90DE4000 

STM 

13,14,0(4) 

02 

00003A 

58F0C014 

L 

15, #+20 

02 

00003E 

ODEF 

BASR 

14,15 

02 

000040 

90234000 

STM 

2, 3, 0(4) 

02 

000044 

58B0C000 

L 

11,0  ( ,  1 2) 

02 

000048 

50F0B09C 

ST 

15,%RTNCODE 

01 

00005C 

0000008D  ♦ 

DC 

A  ('"SENTER  X: 

01 

000060 

00300C00  ♦ 

CONST 

3148800 

01 

000058 

00000001  ♦ 

CONST 

1 

02 

00004C 

41 10B05C 

LA 

1 , iCALLSQR+92 

02 

000050 

5840C00C 

L 

4 ,XSTKADR 

02 

000C54 

41E0D048 

LA 

14,72  (, 13) 

02 

000058 

98234000 

LM 

2,3,0  (4) 

02 

00005C 

90DE4000 

STM 

13,14,0(4) 

02 

000060 

58F0C018 

L 

15, #+24 

02 

000064 

ODEF 

BASR 

14,15 

02 

C00066 

90234000 

STM 

2, 3, 0(4) 

02 

00006 A 

50F0B09C 

ST 

15,XRTNCODE 

02 

00006E 

IB  1 1 

SR 

1,1 

02 

000070 

5840CO0C 

L 

4,XSTKADR 

02 

000074 

41 EOD048 

LA 

14,72  (,  13) 

02 

000078 

98234000 

LM 

2,3,0  (4) 

02 

00007C 

90DE4000 

STM 

13,14,0 (4) 

02 

000080 

58F0C01C 

L 

15, #+28 

02 

000084 

ODEF 

BASR 

14,15 

02 

000086 

90234000 

STM 

2,3,0  (4) 

02 

00008A 

50F0B09C 

ST 

15,XRTNCODE 

0003 

•READ'  ("WF*") ,  X; 

02 

00008E 

IB  1 1 

SR 

1,1 

02 

000090 

5840C00C 

L 

4  ,%STKADR 

02 

000094 

41E0D048 

LA 

14,72  (, 13) 
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02 

000098 

98234000 

LM 

2, 3, 0(4) 

02 

00009C 

90DE4000 

STM 

13,14,0(4) 

02 

0000A0 

58F0C020 

L 

15, #+32 

02 

0000A4 

ODEF 

BASR 

14,15 

02 

0000A6 

90234000 

STM 

2,3,0  (4) 

02 

0000AA 

50F0B09C 

ST 

1 5, XRTNCODE 

01 

000050 

0000008A 

+ 

DC 

A ("WF*") 

01 

000054 

00300300 

♦ 

CONST 

3146496 

01 

00004C 

00000001 

♦ 

CONST 

1 

02 

0000AE 

4110B050 

LA 

1,#CALLSQR+80 

02 

0000B2 

58  40C00C 

L 

4,XSTRADR 

02 

0000B6 

41E0D048 

LA 

14,72(,13) 

02 

0000BA 

98234000 

LM 

2, 3, 0(4) 

02 

0000BE 

90DE4000 

STM 

13,14,0(4) 

02 

0000C2 

58F0C018 

L 

15, #+24 

02 

0000C6 

ODEF 

BASR 

14,15 

02 

0000C8 

90234000 

STM 

2, 3, 0(4) 

02 

oooocc 

50F0B09C 

ST 

1 5, XRTNCODE 

01 

000  044 

OOOOOOOC 

♦ 

DC 

A(X) 

01 

000048 

00720400 

♦ 

CONST 

7472128 

01 

000040 

00000001 

♦ 

CONST 

1 

02 

OOOODO 

41 10  BO  4  4 

LA 

1  ,  #CALLSQR+68 

02 

0000D4 

5840C00C 

L 

4  ,%STKADR 

02 

0000D8 

41E0D048 

LA 

14,72(,13) 

02 

OOOODC 

98234000 

LM 

2,3,0  (4) 

02 

OOOOEO 

90DE4000 

STM 

13,14,0(4) 

02 

0000E4 

58F0C024 

L 

15, #+36 

02 

0000E8 

ODEF 

BASR 

14,15 

02 

OOOOEA 

90234000 

STM 

2,3,0  (4) 

02 

OOOOEE 

50F0B09C 

ST 

15, XRTNCODE 

02 

0000P2 

IB  1 1 

SR 

1.1 

02 

000 OF 4 

5840COOC 

L 

4 ,XSTKADR 

02 

OOOOF8 

41E0D048 

LA 

14,72  (,  13) 

02 

OOOOFC 

98  23400  0 

LM 

2,3,0  (4) 

02 

000100 

90DE40C0 

STM 

13,14,0  (4) 

02 

000104 

58F0C01C 

L 

15, #+28 

02 

000108 

ODEF 

BASR 

14,15 

02 

00010A 

90234000 

STM 

2,3,0  (4) 

02 

00010E 

50F0B09C 

ST 

15, XRTNCODE 

*0004 

•WRITE' 

("•  X=»,WF,' 

SORT  OF  X-  ',WF*")  ,Xf  SQB 

02 

000112 

IB  1 1 

SR 

1,1 

02 

000114 

5840C00C 

L 

4 ,XSTKADR 

02 

000118 

41E0D048 

LA 

14,72  (,  13) 

02 

00011C 

98234000 

LM 

2,3,0  (4) 

02 

000120 

90DE4000 

STM 

13,14,0(4) 

02 

000124 

58F0C01 4 

L 

15, #+20 

02 

000128 

ODEF 

BASR 

14,15 

02 

00012A 

90234000 

STM 

2,3,0  (4) 

02 

00012E 

50FOB09C 

ST 

15, XRTNCODE 

01 

000038 

00000070 

♦ 

DC 

A ("'  X= ' , NF  , ' 

01 

00003C 

00301A00 

♦ 

CONST 

3152384 

01 

000034 

00000001 

♦ 

CONST 

1 
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02 

000132 

4110B038 

LA 

1 ,  #CALLSQR+56 

02 

000136 

58  40C00C 

L 

4, XSTKADR 

02 

00013A 

41E0D048 

LA 

14,72  (,13) 

02 

00013E 

98234000 

LM 

2,3,0  (4) 

02 

000142 

90DE4000 

STM 

13,14,0(4) 

02 

000146 

58F0CO18 

L 

15, #*24 

02 

000 14 A 

ODEF 

BASR 

14,15 

02 

000  14C 

90234000 

STM 

2,3,0  (4) 

02 

000150 

50F0B09C 

ST 

15,XRTKC0DE 

01 

00002C 

oooooooc 

♦ 

DC 

A(X) 

01 

000030 

00720400 

♦ 

CONST 

7472128 

01 

000028 

00000001 

♦ 

CONST 

1 

02 

000154 

41 10B02C 

LA 

1  ,#CALLSQR  +  44 

02 

000158 

5840C00C 

L 

4, XSTKADR 

02 

000 15C 

41E0D048 

LA 

14,72  (, 13) 

02 

000160 

98234000 

LM 

2,3,0  (4) 

02 

000164 

90DE4000 

STM 

13,14,0(4) 

02 

000168 

58 FO CO 2  4 

L 

15, **36 

02 

00016C 

ODEF 

BASR 

14,15 

02 

00016E 

90234000 

STM 

2, 3, 0(4) 

02 

000172 

50F0B09C 

ST 

1 5,XRTNC0DE 

01 

000020 

OOOOOOOC 

♦ 

DC 

A  (X) 

01 

000024 

00720400 

♦ 

CONST 

7472128 

01 

00001C 

00000001 

♦ 

CONST 

1 

02 

000176 

41 10  BO  20 

LA 

1,#CALLSQR+32 

02 

00017A 

5840C00C 

L 

4 , XSTKADR 

02 

00017E 

41E0D048 

LA 

14,72  (,  13) 

02 

000182 

98234000 

LM 

2, 3, 0(4) 

02 

000186 

90DE4000 

STM 

13,14,0(4) 

02 

00018A 

58  AOCOOO 

L 

10,0  (,12) 

02 

00018E 

41F0A000 

LA 

15,SQRT 

02 

000192 

ODEF 

BASR 

14,15 

02 

000194 

90234000 

STM 

2, 3, 0(4) 

02 

000198 

50F0B09C 

ST 

15,XRTNC0DE 

02 

00019C 

7000B0A0 

STE 

0 ,XTM  POOO 1 

01 

000014 

OOOOOOAO 

+ 

DC 

A  (XTMPOO0 1) 

01 

000018 

00720400 

♦ 

CONST 

7472128 

01 

000010 

00000001 

♦ 

CONST 

1 

02 

000 1  AO 

41  10  B0 1 4 

LA 

1 ,  #CALLSQR+20 

02 

000  1 A  4 

58  40C00C 

L 

4, XSTKADR 

02 

0001A8 

41 EO  DO 4 8 

LA 

14,72  (,  13) 

02 

000 1  AC 

98234000 

LM 

2,3,0  (4) 

02 

0001B0 

90DE4000 

STM 

13,14,0(4) 

02 

0001B4 

58F0C024 

L 

1 5, #*36 

02 

0001B8 

ODEF 

BASR 

14,15 

02 

000 1  BA 

90234000 

STM 

2,3,0  (4) 

02 

0001BE 

50F0B09C 

ST 

15,XRTNC0DE 

02 

000  1C  2 

IB  1 1 

SR 

1,1 

02 

0001C4 

5840COOC 

L 

4, XSTKADR 

02 

0001C8 

41EOD048 

LA 

14,72  (,  13) 

02 

000  ICC 

98234000 

LM 

2, 3, 0(4) 

02 

000  IDO 

90DE4000 

STM 

13,14,0(4) 
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02  0001D4 

58F0C01C 

L 

15, **28 

02  0001D8 

ODEF 

BASE 

14,15 

02  000 IDA 

90234000 

STH 

2,3,0  (4) 

02  000 IDE 

50F0B09C 

ST 

15,XBTNCODE 

*0005 

•GO  TO' 

CALLSQRT; 

02  0001E2 

IB  1 1 

SB 

1.1 

02  000028 

0 

EQU 

CALLSQBT+40 

02  00C1E4 

5890C008 

L 

9,8  (,  12) 

02  000  1E8 
*0006 

47F09028 

B 

DCALLSQR+40 

*0007 

•PROCEDURE*  SQRT.  (X)  ; 

*0008 

'PRESET 

•  EPS  :=  .0001; 

01  000000 

3A2AF31D 

♦ 

CONST 

.0001 

*0009  SQRT:  'IF'  X= 

0.  |  X*1.,  'RETURN'  X; 

02  000 1EC 

CNOP 

0,4 

02  0001EC 

SQRT 

EQU 

* 

02  00018C 

COOS 

♦ 

02  000190 

A1EC 

♦ 

02  0001EC 

90ECD00C 

STH 

14,12,12(13) 

02  0001F0 

58C0F020 

L 

12,32  (, 15) 

02  0001F4 

58E0C00C 

L 

14,XSTKADB 

02  0001F8 

58E0E004 

L 

1 4, 4  (  ,  14) 

02  0001FC 

50E0D008 

ST 

14,8(,13) 

02  000200 

50D0E004 

ST 

13,4(,14) 

02  000204 

18DE 

LR 

13,14 

02  000206 

47F0F028 

B 

40(,15) 

02  00020C 

00000000 

DC 

A  (XBASETAE) 

02  000210 

58C0F020 

L 

12,32  (,  15) 

02  000214 

58  201000 

L 

2,0  (,  1) 

02  000218 

5020C010 

ST 

2,  #+16 

02  00021C 

58B0C010 

L 

1 1 . 18  (,  12) 

02  000220 

782OBO0O 

LE 

2  ,  X 

02  000224 

58A0C000 

L 

10,0  (,  12) 

02  000228 

7920A06C 

CE 

2  ,*0. 

02  00022C 

92FFA0A4 

HVI 

XTHP0001,"FF"X 

02  000230 

5890C000 

L 

9 ,0  (, 12) 

02  000234 

47809000 

BE 

XFLA0002 

02  000238 

9200A0A4 

HVI 

XTHP0001, 0 

02  00023C 

XFLA0002 

EQU 

* 

02  000232 

C008 

♦ 

02  000236 

92  3C 

♦ 

02  00023C 

7920A068 

CE 

2  ,=  1  • 

02  000240 

92FFA0A6 

HVI 

XTHPO 002, "FF"X 

02  000244 

5880C000 

L 

8  ,0  ( , 12) 

02  000248 

47808000 

BE 

XFLA0003 

02  000 24C 

9200A0A6 

HVI 

XTHPO 002,0 

02  000250 

XFLA0003 

EQU 

* 

02  000246 

C008 

♦ 

02  00024A 

8250 

♦ 

02  000250 

D200A0A5A0A4 

HVC 

XTHP0003  ( 1)  , XT 

02  000256 

D600A0A5A0A6 

OC 

XTHP0003  ( 1)  ,XT 

02  00025C 

95  00  AO  A  5 

CLI 

XTHPO 003,0 
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i 

02  000260 

5870C000 

L 

7,0(,12) 

i 

02  000264 

47807000 

BE 

XFLD0005 

1 

02  000268 

3802 

LER 

0,2 

02  000 26 A 

58D0D004 

L 

13,4  (#13) 

02  00026 E 

98ECD00C 

LH 

14,12,12(13) 

1 

02  000272 

1BFF 

SR 

15,15 

1 

02  000274 

07FE 

BB 

14 

02  000276 

XFLD0005 

EQO 

* 

02  000262 

COOS  ♦ 

02  000266 

7276  ♦ 

*0010 

Y  :=  X; 

02  000276 

58BOCOO  0 

L 

11,0(,12) 

02  00027A 

58A0C010 

L 

10,16  (,  12) 

02  00027E 

D203B004 A000 

HVC 

1(4), X 

*0011  LOOP:  Z  :=  (Y  +  X/Y) /2. ; 

02  000284 

LOOP 

EQU 

* 

02  000284 

58B0C010 

L 

11,16  (,  12) 

02  0 v 028 8 

7820B000 

LE 

2,X 

02  03028C 

58A0C000 

L 

10,0(,12) 

02  0  00  290 

7D20A004 

DE 

2,1 

02  000294 

7A20A004 

AE 

2,1 

02  000298 

7D20A064 

DE 

2,«2. 

02  00029C 

7020A008 

STE 

2,Z 

*0012 

•IF'  .ABS.  (Y-Z)  <  BPS , 

•RETORN'  Z; 

02  0002A0 

7820A004 

LE 

2,1 

02  0002A4 

7B20A008 

SE 

2,Z 

02  0002A8 

3022 

LPER 

2,2 

02  0002AA 

79  20A000 

CE 

2,  EPS 

i 

02  0002AE 

5890C00  0 

L 

9,0 (, 12) 

! 

02  0002B2 

47B09000 

BNL 

XFLD0007 

02  0002B6 

7800A008 

LE 

0,Z 

02  0002BA 

58D0D00  4 

L 

13,4  |,13) 

) 

02  0002BE 

98ECD00C 

LH 

14,12,12(13) 

• 

02  0002C2 

1BFF 

SB 

15,15 

02  0002C4 

07  FE 

BR 

14 

02  0002C6 

XFLD0007 

EQO 

* 

. 

02  0002B0 

CO  08  ♦ 

02  0002B4 

92C6  ♦ 

*0013 

Y  :=  Z; 

02  0002C6 

58B0C000 

L 

1 1,0  (,  12) 

02  0002CA 

D203B004B008 

HVC 

1(4), Z 

*0014 

'GO  TO'  LOOP 

*0015 

•END' 

* 

02  0002D0 

58A0C008 

L 

10,8(,12) 

02  0002D4 

47F0A284 

B 

LOOP 

*0016 

'END' 

« 

*0016  aiCODEENDOFFILE 

RTST  ENTRIES  FOR  BLOCK  %BLN0001 

1 

: 

RTST  ENTRIES  FOR  BLCCK  XBLN0002 

1 

* 
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01  OOOOA8 

02  00020C  OOOOOOA8 
02  000020  000000A8 
01  0000A8  00000000 
01  0000AC  OOOOOOA8 
01  0000B0  00000000 
01  0000BU  00000000 
01  0000B8  00000000 
01  OOOOBC  00000000 
01  OOOOCO  00000000 
01  OOOOC4  00000000 
01  0000C8  00000000 
01  OOOOCC  00000000 


JBASETAB  EQO  XBASETAB 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 
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EXTERNAL  SYMBOL  DICTIONARY  (SYMBOL, TYPE , ID, ADDR ,LENGT H/LDID) 

iCALLSQR  PD  01  000000  0000D0 
SCALLSQR  SD  02  000000  0002D8 
HADSTACK  ER  03 

C ALLSQBT  LD  000000  000002 

HADWRITE  EB  04 

FORMAT  ER  05 

ENDIOP  ER  06 

HAEREAD  ER  07 

IOP  ER  08 
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RELOCATION  DICTIONARY  (P. ID,R. ID, FLAGS, ADDRESS) 


01 

01 

OC 

00005C 

01 

01 

OC 

000050 

01 

01 

OC 

000044 

01 

01 

OC 

000038 

01 

01 

OC 

00002C 

01 

01 

OC 

000020 

01 

01 

OC 

000014 

02 

01 

OC 

00020C 

02 

01 

OC 

000020 

01 

01 

OC 

0000A8 

01 

01 

OC 

OOOOAC 

01 

02 

OC 

OOOOBO 

01 

03 

OC 

0000B4 

01 

04 

OC 

OOOOBC 

01 

05 

OC 

OOOOCO 

01 

06 

OC 

0000C4 

01 

07 

OC 

0000C8 

01 

08 

OC 

OOOOCC 

02 

000000 

CALLSQRT 
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STORAGE  HAP 


00  02  0014  000004  MADWRITE 
00  02  0018  000005  FORHAT 
00  02  001C  000006  ENDIOP 
00  02  0020  000007  HADREAD 
00  02  0024  000008  IOP 

oo  03  ooio  oooooa  x 

01  01  0000  000000  EPS 
01  01  0000  000004  Y 

01  01  0000  000008  z 

01  01  0000  OOOOOC  X 
01  01  0000  000064  2. 

01  01  0000  000068  1. 

01  01  0000  00006C  0. 

01  01  0000  000070  X=',»F,'  SQRT  OF  X=»  ,WF*" 

01  01  0000  00 00 8 A  "  WF*M 

01  01  0000  00008D  " 'CENTER  X:'*" 

01  01  0000  00009C  XRTNCODE 
01  01  0000  0000A8  %E ASETAB 
02.  01  0008  000000  CALISQRT 
02  01  0008  0001  EC  SQRT 
02  01  0008  000284  LOOP 


l' 

L 

L 
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SYMBOL  ATTRIBUTES 


BLOCK  XBLN0001  NUMBER  OF  SYMBOLS=19 

•DEFAULT*  1 FLOATINGSHORT'  00  00  0000  000000 
XRTNCODE  • INTEGERLONG'  01  01  0000  G0009C 
CALLSQRT  ' ENTRYPOINT '  02  01  0008  000000  'ACCESSIBLE' 
RESULT=  'FLOATINGSHORT* 

ENDIOP  'ENTRYPOINT'  00  02  001C  000006  'EXTERNAL* 

EPS  'FLOATINGSHORT*  01  01  0000  000000 

FORMAT  'ENTRYPOINT'  00  02  0018  000005  'EXTERNAL' 

IOP  'ENTRYPOINT'  00  02  0024  000008  'EXTERNAL* 

MADREAD  'ENTRYPOINT'  00  02  0020  000007  'EXTERNAL* 

MADWRITE  'ENTRYPOINT'  00  02  0014  000004  'EXTERNAL* 

SQRT  'ENTRYPOINT'  02  01  0008  0001EC 
RESULT=  'FLOATINGSHORT* 

X  'FLOATINGSHORT'  01  01  0000  00000C 
Y  'FLOATINGSHORT'  01  01  0000  000004 
Z  'FLOATINGSHORT'  01  01  0000  000008 

"•  X=',WF,'  SQRT  OF  X=',HF*"  'CHARACTER*  01  01  0000  000070 
LENGTH=26 

" '  &ENTER  X:'*''  'CHARACTER*  01  01  0000  00008D 
LENGTH=1 2 

"WF*"  'CHARACTER'  01  01  0000  00008A 
LENGTH=3 

0.  'FLOATINGSHORT*  01  01  0000  00006C 

1.  'FLOATINGSHORT*  01  01  0000  000068 

2.  'FLOATINGSHORT'  01  01  0000  000064 

BLOCK  XBLN0002  NUMBER  OF  SYMBOLS=2 


LOOP  'TRANSFERPOINT'  02  01  0008  000284 
X  'FLOATINGSHORT'  00  03  0010  000000  (FORMAL  PAR) 


MAD/I  COMPILER 

STATISTIC 

PA  SSI 

ALLOC 

PASS2 

CPU  TIME 

(SEC) 

2.115 

2.649 

10.213 

ELAPSED  TIME 

(SEC) 

6.067 

6.946 

29.114 

CPU  VM  INTEGRAL 

(PG-SEC) 

316.617 

402.356 

1565.634 

22 

MEAN  VM  SIZE 

(  PGS) 

79.199 

79.600 

81.137 

2 

DRUM  READS 

57 

77 

245 

3 

STATEMENTS 

15 

DESCRIPTORS 

100 

1 

♦EXECUTION  TERMINATED 
♦run  -deck  map 


ENTRY  =  5001A8  SIZE  =  00802D 

NAME  VALUE  T  RF  NAME  VALUE  T  RF  NAME  VALUE 
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GETSPACE 

20DD9E 

* 

FREESPAC 

SYSTEM 

2157CC 

* 

ERROR 

GETFD 

218878 

* 

SCARDS 

SPUNCH 

218B58 

* 

SERCOM 

WRITE 

218C04 

* 

LC SYMBOL 

iCALLSQR 

5001A8 

5001A8 

SPIE 

MADREAD 

5005F0 

* 

MADHRITE 

IOP 

50077C 

* 

ENDIOP 

MADSTACK 

503000 

*503000 

IOH360 

IOHOUT 

504114 

* 

IOHETC 

IOHERP 

508000 

♦503F18 

GLAP 

ROPEN 

50B0CE 

* 

RCLOSE 

PCLOSE 

50B1C0 

* 

20E09E 

* 

LOAD 

20F7B0 

2157F6 

* 

PGNTT8P 

2181CC 

218B34 

* 

SPRINT 

218B46 

218B6A 

* 

READ 

218BE8 

2197D0 

* 

#C  ALLS  QR 

5000D8 

500480 

*500480 

MADIO 

5005F0 

50061E 

* 

FORMAT 

50073 A 

5007C2 

* 

MDIOPSCT 

500958 

504000 

*504000 

IOHIN 

5040F0 

50483C 

* 

ONEdATIM 

50492C 

50A000 

*506988 

IOPKG 

50B000 

50B148 

* 

POPEN 

50B174 

♦EXECUTION  BEGINS 


ENTER 

X:  100. 

0 

X  = 

ENTER 

100.0000 
X:  1.0 

SQRT 

OF 

X= 

X= 

ENTER 

1.  0000 
X:  0. 

SQRT 

OF 

x= 

X  = 

ENTER 

.0000 
X:  2.0 

SQRT 

OF 

X= 

X  = 

ENTER 

2.0000 
X:  4.0 

SQRT 

OF 

x= 

X  = 

ENTER 

4.0000 
X:  * 

SQRT 

OF 

x= 

0* ***  ALL  INPUT  DATA  HAS  BEEN 
#EX ECUTION  TERMINATED 


10.0000 

1.0000 

.0000 

1.4142 

2.0000 

PROCESSED  -  AT  LOCATION  500768 
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section  13:  MAD/I  Error  Messages 


This  section  has  not  yet  been  written 


-  sorry. 
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Section  14:  Object  Module  Description 


14.1 _ Representation  of  Data 

Alignment  Attribute 

The  alignment  attribute  of  an  item  specifies  a  constraint 
on  the  positioning  of  its  allocated  storage.  The  alignment 
attribute  for  an  item  is  taken  as  the  maximum  of  the  value 
explicitly  declared  through  the  ‘ALIGN'  keyword  (if  any)  and  the 
alignment  implied  by  other  attributes  of  the  item.  The  valid 
alignment  values  and  their  definitions  are: 

1:  Any  byte  boundary. 

2:  Any  halfword  boundary. 

4:  Any  fullword  boundary. 

8:  Any  double-word  boundary. 


Mode  Representations 

The  following  table  gives  the  internal  representations  used 
for  the  various  MAD/I  modes.  Representation  terminology  is 
defined  in  the  IBM  System/360  Principles  of  Operation  manual. 
The  "length"  given  is  the  length  in  bytes. 


Mode 


Alignment  Length  Representation 


'INTEGER  SHORT' 
'INTEGER  LONG' 
'FLOATING  SHORT' 
•FLOATING  LONG' 
'PACKED'  (n) 
•BIT'  (n) 

•  BOOLEAN' 

•CHARACTER'  (n) 


2 

4 

4 

8 

1 


1 


1 


2  Halfword  fixed-point  number. 

4  Fullword  fixed-point  number. 

4  Short  floating-point  number. 

8  Long  floating-point  number. 

n  Packed-decimal  number. 

n  bits,  allocated  such  that 
all  bits  are  contained  in  one 
fullword. 

1  A  logical  byte;  all  bits  1 

represents  'TRUE'  and  all 

bits  0  represents  'FALSE'. 

n  Variable-length  logical 

information;  i.e.,  n  bytes 
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•VARYING  CHARACTER'  (n) 

2  n+2 

•FILE  NAME'  4  4 

•TRANSFER  POINT'  2  0 

•FIXED  ARRAY'  ( — ) 

•VARYING  ARRAY'  ( — ) 

•COMPONENT  STRUCTURE*  ( — ) 

•ALTERNATE'  ( — ) 

•POINTER*  4  4 

•ENTRY  POINT'  2  0 

•ENTRY  NAME'  4  8 


representing  n  characters  in 
EBCDIC. 


The  halfword  fixed-point 
number  representing  the 
current  length  of  the 
character  string,  followed  by 
the  characters,  one  per  byte. 

Fullword  address  of  a  control 
block  in  the  MAD/I 
input/output  support  tables. 

The  first  instruction  at  the 
transfer  point. 

The  component  values,  laid 
out  by  the  array  sequencing 
rule.  The  alignment  and 
length  are  determined  as  in 
Section  3. 1.2.1.  There  may 
also  be  an  array  dope  vector, 
as  described  below. 

See  'FIXED  ARRAY'  above. 

The  component  values,  laid 
out  in  the  order  declared. 
The  alignment  and  length  are 
determined  as  in  Section 
3.1.2. 2.  There  may  also  be  a 
dope  vector,  as  described 
below. 

The  alternative  values, 
overlaid  one  "atop"  the 
other.  The  alignment  and 
length  are  determined  as  in 
Section  3. 1.2.3. 

Fullword  address  of  the  item 
pointed  to. 

The  first  instruction  at  the 
entry  point. 

Fullword  address  of  the  entry 
point  followed  by  the 
fullword  address  of  the 
appropriate  environment 

information. 
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A*£3S-D2£e_Xgctors 

An  array  dope  vector  is  used  to  conpute  the  displacement  of 
a  component  within  an  array.  The  dope  vector  for  an  n-dimension 
array  consists  of  the  3*n+1  itens:  n,  L(1),  0(1),  H(1),  . 

L(n),  0(n),  M(n),  where  each  iten  is  a  fullword  fixed-point 

nunber.  n  is  the  nuaber  of  dinensions  of  the  array,  L(i)  is  the 
lower  bound  of  the  i-th  subscript,  0(i)  is  the  upper  bound  of 
the  i-th  subscript,  and  H(i)  is  a  multiplier  used  to  compute  the 
displacement  of  a  component.  The  displacement  of  the  component 
having  subscripts  (S  (1)  ,  ...,  S(n))  is  computed  as  follows: 


n 

displacement  =  >  [S(i)  -  L(i)  ]  ♦  H(i) 

1 

The  upper  bounds,  U(i),  are  not  used  in  this  computation,  but 
can  be  used  to  check  subscript  ranges. 

For  example,  the  declaration 

•DECLARE*  A  'FIXED  ARRAY'  (0...10,  5. ..20,  400)  'INTEGER' 

produces  the  array  dope  vector  (3,  0,10,25600,  5,20,1600, 

1,400,4)  . 


Component  Structure  Dope  Vector 

The  dope  vector  for  a  component  structure  having  fl 
components  consists  of  the  n  +  1  items:  n,  D(1),  ...,  D(n).  fl  is 
the  number  of  components,  D  (i)  is  the  displacement  of  the  i-th 
component  from  the  beginning  of  the  component  structure.  Each 
item  is  a  fullword  fixed-point  number. 

For  example,  the  declaration 

•DECLARE'  A  'COMPONENT  STRUCTURE'  ('INTEGER  SHORT', 
•FLOATING  LONG',  'BIT* (8)) 

produces  the  dope  vector  (3,  0,  8,  16). 


Run-time  Symbol  Table 

The  format  of  the  run-time  symbol  table  is  still  in  a  state 
of  flux,  and  is  not  defined  here. 
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■Sgglion_15l.-Assgifele£_ggfliafl.fga£aE§ 

The  assembler  coding  feature  provides  a  minimal  language 
facility  for  coding  aachine  operations  that  cannot  be  expressed 
directly  in  HAD/I.  Syntactically,  the  asseabler  coding  feature 
consists  of  a  coapound  stateaent  in  the  HAD/I  language.  The 
scope  of  this  stateaent  consists  of  two  parts:  declarations  and 
assembler-language  statements.  The  aachine  code  generated  by 
the  stateaent  consists  of  the  aachine  code  specified  by  the 
asseabler  code  in  the  stateaent  scope,  interspersed  with 
compiler-generated  aachine  code  necessary  to  load  base 
registers. 


15. 1 _ 'ENTER  ASSEMBLED  CODE*  Stateaent 

The  asseabler  coding  feature  stateaent  is  a  coapound 
statement  which  has  a  prefix  of  the  fora 


•ENTER  ASSEMBLER  CODE* 


Note  that  only  the  long  fora  of  the  coapound  stateaent  is  legal. 
The  scope  of  the  • ENTER  ASSEMBLER  CODE*  stateaent  (abbreviated 
•ENTASM')  does  not  consist  of  HAD/I  statements,  but  rather 
declarations  peculiar  to  the  'ENTER  ASSEMBLER  CODE*  stateaent 
followed  by  asseabler  code  instructions.  The  individual 
declarations  and  asseabler  code  instructions  are  separated  by 
seaicolons.  The  stateaent  is  terainated  by  the  keyword  'END'. 


_ B&nlaiatjgfls 

There  are  three  declarations  which  can  be  specified  in  the 
scope  of  an  'ENTER  ASSEMBLER  CODE'  stateaent.  These  are 
'COVER',  'LABEL',  and  'RESERVE'.  Each  declaration  consists  of 
one  of  the  above  three  keywords  followed  by  a  list  of 
identifiers  and  possibly  constant  syabols,  separated  by  conmas. 


J5.J 

The  'COVER'  declaration  is  used  to  guarantee  that  certain 
identifiers  or  constant  syabols  (not  B-expressions)  in  the  MAD/I 
program  have  base  register  coverage  throughout  the  scope  of  the 
'ENTER  ASSEMBLER  CODE'  statement.  'COVER'  should  be  used  only 
for  those  identifiers  and  constant  symbols  for  which  compiler- 
generated  load  instructions  preceding  the  assembler  code 
instruction  cannot  be  tolerated,  because  'COVER'  reserves 
registers  for  base  coverage  for  each  itea  in  its  list.  One  case 
in  which  'COVER'  should  be  used  is  for  the  identifiers  and 
constant  syabols  referenced  by  the  subject  instruction  of  an 
EXECUTE  instruction,  since  the  insertion  of  load  instructions 
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preceding  the  subject  instruction  (to  acquire  addressability) 
would  cause  a  load  instruction,  rather  than  the  anticipated 
instruction,  to  be  executed.  The  following  exaeple  causes  up  to 
four  general  registers  to  be  reserved  for  use  as  base  registers, 
one  each  for  the  two  HAD/I  identifiers  QQSV  and  X,  and  one  each 
for  the  two  constant  synbols  15.3E-5  and  1: 

•COVER'  QQSV , X ,  15.3E-5,1; 


15.1.1.2  ♦  LABEL 1 

The  'LABEL'  declaration  is  used  to  declare  that  certain 
identifiers  will  appear  as  labels  within  the  scope  of  the  ' ENTER 
ASSEMBLER  CODE'  statenent.  The  labels  are  defined  by  the 
occurrence  of  a  colon  (:)  followed  bv  the  label  in  what  nornally 
would  be  called  the  label  field  of  sone  assembler  code 
instruction.  For  example: 

*  LABEL •  QQSV; 


: QQSV  L  R3,X; 

The  scope  of  a  'LABEL'  identifier  is  restricted  to  the  ' ENTER 
ASSEMBLER  CODE'  statement,  and  is  independent  of  other 
occurrences  of  the  sane  syabol  outside  the  statenent. 


J5.sJ.Ll  a  3 _ '  RESERVE' 

The  'RESERVE'  declaration  is  used  to  reserve  general 
registers  for  the  use  of  the  assembler  language  instructions 
within  the  scope  of  the  'ENTER  ASSEMBLER  CODE'  statement.  Each 
list  item  can  either  be  an  integer  constant  synbol,  in  which 
case  a  specific  general  register  is  reserved,  or  an  identifier, 
in  which  case  any  available  general  register  is  reserved. 
Identifiers  representing  registers  are  known  only  inside  the 
scope  of  the  'ENTER  ASSEMBLER  CODE'  statenent  which  defines 
them,  and  are  independent  of  the  same  symbols  used  outside  of 
that  statement.  It  is  best  to  mention  specific  registers  first 
and  have  the  'RESERVE'  declaration  precede  any  'CCVER' 
declarations  to  insure  that  the  register  wanted  has  not  already 
been  assigned  to  an  identifier  or  as  a  base  register.  All 
qeneral  registers  other  than  registers  12  and  13  are  available. 
The  compiler  will  feel  free  to  use  any  registers  which  have  not 
been  reserved.  For  example,  the  declaration 

•RESERVE'  1,2, 3, R1; 

reserves  general  registers  1,2,  and  3,  plus  one  other  arbitrary 
general  register  whose  designation  will  be  R1. 
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J _ Assembler  Code  Format 

Assembler  code  instructions  are  written  in  much  the  same 
manner  as  in  the  assembler  language,  except  that  they  are  free¬ 
form  and  must  be  separated  by  semicolons.  All  the  machine- 
instruction  operation  codes  are  valid,  including  the  privileged 
operations,  operations  unique  to  the  Model  67,  and  RFQ-ed 
instructions  on  the  University  of  Michigan  machine  such  as  mixed 
floating-point.  Swap  Register,  and  the  Search  List  instruction. 
None  of  the  assembler  instructions  (such  as  EQU,  0R6,  DC,  or 
USING)  are  valid. 

The  structure  of  the  operands  in  the  assembler  language 
code  is  the  same  as  in  the  assembler  language  (e.g.,  R,D(X,B)  ). 
However,  the  expressions  which  can  be  used  as  operands  are  much 
more  restricted. 

There  are  two  kinds  of  "values"  in  the  assembler  code 
operand  expressions:  absolute  and  rel oca table.  Relocatable 
values  are  storage  assignments.  They  are  converted  into  base- 
displacement  pairs  when  used  as  operands  in  assembler  code 
instructions.  Absolute  values,  on  the  other  hand,  are 
equivalent  to  self -defining  terms  in  the  assembler  language. 
They  are  used  for  register  numbers,  displacements,  and  immediate 
data. 


The  following  can  be  used  as  expression  operands: 

1.  Unsigned-integer  constant  symbols,  which  have  the  usual 
integer  absolute  "value".  For  example,  10,  4,  0,  and  so 
forth. 

2.  Identifiers  which  have  been  • RESERVE' ed ,  which  have  as 
their  value  the  general  register  corresponding  to  them, 
which  is  an  absolute  "value".  For  example,  R1  following 
the  declaration  'RESERVE*  HI; 

3.  Constant  symbols  (not  3-expressions)  preceded  by  an 
equal  sign  (=) ,  which  have  as  their  value  the  ^relocatable 
storage  assignment  of  the  corresponding  constant  in  the 
program.  For  example,  =1,  =10.5,  ="FFF00000"X,  and  so 
forth. 

4.  Identifiers  which  appear  as  labels  within  the  scope  of 
the  'ENTER  ASSEMBLER  CODE*  statement,  which  have  as  their 
value  the  relocatable  storage  assignment  of  the 
corresponding  assembler  code  instruction. 

5.  All  other  identifiers  have  as  their  value  the 
relocatable  storage  assignment  of  the  corresponding 
identifier  in  the  program. 
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The  simplest  of  assembler  code  operands  is  one  of  the  four 
types  of  expression  operands  described  above.  These  expression 
operands  can  also  be  combined  into  more  complicated  expressions. 
These  expressions  can  then  be  used  as  assembler  code  operands. 
The  operators  which  can  be  used  in  forming  expressions  are 
described  below: 

1.  The  addition  operator  (♦) ,  can  be  used  to  add  together 
the  values  of  two  operands.  The  result  is  absolute  if  both 
operands  are  absolute,  relocatable  if  either  of  ”the  two 
operands  is  relocatable.  Meaningless  values  result  if  both 
operands  are  relocatable.  One  must  be  very  careful  in 
computing  relocatable  values,  because  the  result  may  fall 
outside  of  the  area  covered  by  the  base  register.  For  non- 
structured  modes,  the  entire  storage  assigned  falls  within 
the  base-area.  For  structured  modes,  only  the  first  eight 
bytes  necessarily  fall  within  the  area.  Calculations 
involving  storage  assignments  of  executable  code  are 
dangerous,  because  the  compiler  may  begin  a  new  base-area 
at  any  point  in  an  instruction  sequence. 

2.  The  prefix  operator  .LN.  accepts  as  an  operand  an 
identifier  within  the  program  or  a  constant  symbol  preceded 
by  an  egual  sign,  and  returns  as  its  result  an  absplute 
"value"  which  is  the  compile-time  length  of  the  storage 
assigned  to  the  operand. 
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J5..2 _ Interface  Conventions 

The  assembler  code  instructions  written  in  the  scope  of  the 
'ENTER  ASSEMBLER  CODE'  statement  of  course  are  located  in  the 
larger  environment  of  the  code  generated  for  all  the  statements 
in  the  program.  Certain  conventions  are  followed  in  the  machine 
code  generated  by  the  MAD/I  compiler  and  it  is  necessary  for  the 
user  to  be  aware  of  some  of  them,  although  many  steps  have  been 
taken  to  make  these  conventions  as  painless  and  transparent  as 
possible. 


15^1 _ Entry  into  the  'ENTER  ASSEMBLER  CODE'  Statement 

The  'ENTER  ASSEMBLER  CODE'  statement  can  be  entered  in  two 
ways,  by  "falling"  into  it  under  the  normal  sequencing  rules  of 
the  language  or  by  branching  to  (or  calling)  the  label  on  the 
'ENTER  ASSEMBLER  CODE'  statement.  In  either  case  the  execution 
of  the  assembler  code  within  the  statement  begins  with  the  first 
instruction.  It  is  not  possible  to  enter  the  assembler  language 
code  at  any  point  other  than  its  beginning.  The  following 
operations  are  performed  preceding  the  first  assembler  language 
statement: 

1.  If  the  'ENTER  ASSEMBLER  CODE'  statement  has  a  label,  all  the 
usual  code  generated  for  a  label  is  produced,  including  entry 
point  code  if  the  label  is  of  'ENTRY  POINT'  mode. 

2.  All  unstored  values  in  both  the  floating-point  and  general 
registers  are  stored  into  their  respective  variables. 

3.  All  information  concerning  the  contents  of  the  registers  ; ° 
forgotten.  This  essentially  makes  all  the  floating-po 
registers  and  all  the  general  registers  other  than  12  and 
available  for  use. 

4.  The  'COVER'  and  'RESERVE'  declarations  within  the  scope  of 
the  'ENTER  ASSEMBLER  CODE'  statement  are  processed  in  the  order 
in  which  they  appear.  For  each  general  register  reserved  the 
status  of  the  register  is  changed  to  indicate  that  it  cannot  be 
used  by  the  compiler  for  any  purpose.  For  each  MAD/I  identifier 
or  constant  symbol  covered,  an  available  register  is  loaded  with 
a  base  to  cover  the  variable  and  its  status  is  changed  to 
indicate  that  it  contains  a  base  address  and  cannot  be  changed. 


The  result  of  these  steps  is  that: 

1.  All  floating-point  registers  are  available  for  use  by  the 
assembler  code. 

2.  All  general  registers  (except  12  and  13)  are  available  for 
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use  by  the  assembler  code.  General  registers  are  reserved 
explicitly  and  implicitly  by  the  •RESERVE*  and  'COVER' 
declarations. 

3.  All  general  registers  not  reserved  through  'RESERVE'  or 
'COVER'  are  available  to  the  compiler  for  use  as  base  registers. 

4.  General  register  12  contains  a  base  register  used  by  the 
compiler  to  maintain  addressability.  It  covers  the  area  called 
XBASETAB,  which  contains  the  values  put  into  base  registers. 

5.  General  regxster  13  contains  the  address  of  the  save  area  to 
be  used  for  callinq  other  subroutines.  This  contains  a  back 
pointer  to  the  save  area  provided  by  the  program  which  called 
the  'PROCEDURE'  containing  the  'ENTER  ASSEMBLER  CODE'  statement. 
In  calling  another  subroutine,  it  is  necessary  to  increment  and 
decrement  the  stack  information  used  by  MAD/I  programs  (the 
stack  contains  the  save  areas).  This  will  be  shown  in  one  of 
the  examples  in  Section  15.3. 

6.  All  variable  values  are  located  in  memory  and  must  be 
referenced  from  memory.  The  fact  that  a  variable  value  might 
also  be  in  a  register  cannot  be  taken  advantage  of  from  the 
assembler  code. 


15.2.2  Exj,t  from  the  '  EflTER  ASSEMBLER  CODE'  Statement 

The  'ENTER  ASSEMBLER  CODE'  statement  can  be  left  in  three 
ways:  by  "falling"  out  of  the  bottom  following  the  normal 
sequencing  conventions,  by  branching  to  a  label  or  'ENTRY  NAME' 
variable,  or  by  calling  an  'ENTRY  POINT'  or  'ENTRY  NAME'.  In 
each  case  there  is  no  automatic  storing  of  changed  variable 
values  from  the  registers.  It  is  entirely  up  to  the  user  to 
insure  that  all  changed  variable  values  are  stored  before  the 
•ENTER  ASSEMBLER  CODE*  statement  is  exited.  Furthermore,  he 
must  follow  all  normal  calling  seguence  conventions  when  calling 
other  subroutines,  including  the  incrementing  and  decrementing 
of  stack  information. 

At  the  physical  end  of  the  scope  of  the  'ENTER  ASSEMBLER 
CODE'  statement,  all  reserved  registers  are  once  again  made 
available  to  the  compiler. 


fu-t  7 


.ser  '3  Gui3  for  ?1AD/I  in  MTS 


Section  15:  Assembler  Coding  Feature 


177 


15.3 _ Examples 


Below  are  several  example  'ENTER  ASSEMBLER  CODE' 
statements.  In  each  example,  some  operation  is  performed  which 
cannot  be  adequately  expressed  in  MAD/I.  The  examples  attempt 
to  show  the  correct  balance  between  the  use  of  MAD/I  and  the  use 
of  the  assembler  coding  feature,  with  as  much  of  the  operation 
as  possible  being  expressed  directly  in  MAD/I.  An  attempt  has 
been  made  to  give  useful  examples  that  might  indeed  be  used  in 
actual  programs.  Each  example  contains  line  numbers  (which  are 
not  a  part  of  the  actual  code)  and  is  followed  by  prose 
explaining  each  line  of  the  example. 


15.3.1  Generating  a  Sta ndard  OS  Type  (I)  S  Call 

The  MAD/I  and  standard  OS  type  (I)  S  calling  sequences 
differ  in  the  structure  of  the  parameter  list.  This  difference 
in  structure  is  transparent  unless  one  is  testing  for  variable- 
length  parameter  lists.  In  the  rtandard  parameter  list,  the  end 
of  the  parameter  list  is  indicated  by  having  bit  zero  of  the 
last  parameter  address  set  to  one.  In  MAD/I,  on  the  other  hand, 
the  number  of  parameters  is  specified  in  the  word  preceding  the 
parameter  list.  This  example  calls  the  subroutine  F  passing 
three  parameters.  A,  B,  and  C,  following  the  standard  calling 
conventions.  This  example  also  illustrates  the  incrementing  of 
the  stack  address,  which  is  necessary  if  the  subroutine  F  causes 
a  call  on  another  subroutine  written  in  MAD/I. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 


•DECLARE'  F  'EXTERNAL'  'ENTRY  POINT'; 

•DECLARE*  PARS  'FIXED  ARRAY'  (3)  'POINTER'; 
•DECLARE*  RTNCODE  'INTEGER'; 

PARS  (1)  :=  .PT.  A;  PARS(2)  :=  .PT.  B;  PARS  (3)  :  = 

.PT.  C; 

PARS  (3)  :=  PARS  (3)  .V.  "80000000"X  ; 

•ENTER  ASSEMBLER  CODE'; 

•RESERVE'  0,1,2,3,4,14,15; 

L  4, XSTKADR; 

LA  14,72(0,13); 

LM  2, 3, 0(4)  ; 

STM  13,14,0(4); 

LA  1,PARS; 

LA  15, F; 

BALR  14,15; 

STM  2,  3,0  (4)  ; 

ST  15, RTNCODE; 

STE  0, RESULT; 

•END'; 


1  declares  F  to  be  'EXTERNAL'  'ENTRY  POINT'.  This  is  done 
implicitly  in  the  normaJ  MAD/I  call  (e.g. ,  F.  (A,B,C)  ). 
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2  declares  PASS  to  be  an  array  with  components  of  'POINTER* 
mode.  The  parameter  list  for  the  standard  OS  type  (I)  S  calling 
sequence  will  be  built  in  PARS. 

3  declares  RTNCODE  to  be  of  'INTEGER*  mode.  The  return  code 
from  F  will  be  stored  here. 

4  puts  the  addresses  of  A,  B,  and  C  into  the  parameter  list. 

5  sets  bit  zero  of  the  address  of  C  in  the  parameter  list  to 
one,  to  conform  to  the  standard  OS  conventions.  The  parameter 
list  is  now  complete. 

6  begins  the  'ENTER  ASSEMBLER  CODE'  statement. 

7  reserves  general  registers  0,  1,  2,  3,  4,  14,  and  15  which  are 
used  in  a  standard  calling  seguence  and  in  saving  and  restoring 
the  stack  status. 

8  loads  the  address  of  the  stack  information  into  general 
register  4.  This  is  the  first  of  the  four  instructions 
necessary  to  increment  the  stack  information  to  conform  to  MAE/I 
stack  conventions. 

9  computes  the  current  end  of  the  stack. 

10  saves  the  current  two  words  of  stack  information  in  general 
registers  2  and  3. 

11  stores  the  two  words  of  new  stack  information  at  the  address 
obtained  in  line  8. 

12  loads  the  address  of  the  parameter  list  into  general  register 
1,  to  conform  to  standard  calling  seguence  conventions. 

13  loads  the  address  of  F  into  general  register  15,  to  conform 
to  standard  calling  sequence  conventions. 

14  loads  the  return  address  into  general  register  14  and 
branches  to  the  entry  point  of  F,  according  to  standard  calling 
sequence  conventions. 

15  restores  the  two  words  of  stack  information  saved  at  line  10. 
This  is  the  only  instruction  needed  to  decrement  the  stack. 

16  stores  the  return  code  left  by  F  from  general  register  15 
into  the  variable  RTNCCDE. 

17  stores  the  floating-point  result  returned  by  F  from  floating¬ 
point  register  0  into  the  variaole  RESULT. 

18  terminates  the  'ENTER  ASSEMBLER  CODE*  statement. 
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15.3.2  Generating  a  Standard  _OS_^Re_jI}__R_Call 

The  standard  OS  type  (1)  R  call  passes  parameter  values  in 
the  general  registers  rather  than  through  a  parameter  list. 
This  type  of  call  cannot  be  directly  generated  by  any  higher 
level  language,  and  yet  it  is  useful  because  many  UTS  system 
subroutines  follow  this  calling  convention.  This  example  calls 
the  MTS  system  subroutine  GETFD ,  which  acquires  a  file  or  device 
given  the  address  of  its  EBCDIC  name  in  general  register  one, 
and  returns  the  address  of  a  control  block  called  a  FDUB  in 
general  register  zero.  This  address  can  be  used  in  further  I/O 
operations  on  the  file  or  device.  In  this  example,  the  EBCDIC 
name  is  assumed  to  be  the  value  of  the  variable  NAME  and  the 
FDUB  address  is  stored  in  the  variable  FDUB.  Note  that  the 
stack  information  is  not  incremented.  This  is  not  necessary 
because  GETFD  will  not  call  any  MAD/I  procedure. 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


'DECLARE'  GETFD  'EXTERNAL'  'ENTRY  POINT'; 
•DECLARE'  FDUB  'INTEGER'; 

•DECLARE'  RTNCODE  'INTEGER'; 

•DECLARE'  NAME  • CHARACTER' (80)  ; 

•ENTER  ASSEMBLER  CODE*; 

' RESERVE •  0,1,14,15; 

LA  1, NAME; 

LA  15, GETFD; 

BALR  14,15; 

ST  15, RTNCODE; 

ST  0,FPUB; 

•END'; 


1  declares  GETFD  to  be  'EXTERNAL'  'ENTRY  POINT'.  This  is  done 
implicitly  in  the  normal  MAD/I  call  (e.g.,  GETFD. (NAME)  ). 

2  declares  FDUB  to  be  of  'INTEGER'  mode.  It  actually  does  not 
matter  what  mode  it  is,  so  long  as  it  has  length  4  and  alignment 
4. 


3  declares  RTNCODE  to  be  of  'INTEGER'  mode.  The  return  code 
from  GETFD  will  be  stored  here. 

4  declares  NAME  to  be  of  'CHARACTER' (80)  mode.  The  name  of  the 
file  or  device  followed  by  at  least  one  blank  is  assumed  to  be 
here. 

5  begins  the  'ENTER  ASSEMBLER  CODE'  statement. 

6  reserves  general  registers  0,  1,  14,  and  15  which  are  used  in 
the  calling  sequence. 

7  loads  the  address  of  the  EBCDIC  name  into  general  register  1. 

8  loads  the  address  of  the  entry  point  to  GETFD  into  general 
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register  15. 

9  loads  the  return  address  into  general  register  14  and  branches 
to  the  entry  point  of  GETFD. 

10  stores  the  return  code  left  by  GETFD  fro»  general  register  15 
into  the  variable  RTNCODE. 

11  stores  the  FDUB  address  returned  by  GETFD  from  general 
register  0  into  the  variable  FDUB. 

12  terminates  the  'ENTER  ASSEMBLER  CODE'  statement. 


15.3.3  Translating  Lower-case  Characters  to  Upper  Case 

The  System/360  has  a  powerful  instruction  (translate) 
useful  for  translating  from  one  character  set  encoding  to 
another.  The  desired  translation  is  defined  by  a  256-fcyte 
translate  table.  MTS  has  several  translate  tables  which  can  be 
referenced  as  external  symbols  to  perform  common  translations. 
One  of  these  is  CASECONV,  which  converts  all  lower-case 
alphabetic  characters  to  upper-case  alphabetic  characters.  The 
following  example  converts  any  lower-case  characters  in  the 
variable  STRING  to.  upper-case  characters. 

1  'DECLARE*  CASECONV  'EXTERNAL*  'FIXED  ARRAY'  (256) 

•CHARACTER'  (1)  ; 

2  'DECLARE'  STRING  • CH AR ACTER •  (80)  ; 

3  'ENTER  ASSEMBLER  CODE'; 

4  TR  STRING  (80)  , CASECONV; 

5  'END'; 

1  declares  CASECONV  to  be  of  'EXTERNAL'  storage  class.  The 
remainder  of  the  declaration  is  not  important  unless  CASECONV  is 
referenced  in  normal  MAD/I  code. 

2  declares  STRING,  the  character  string  to  be  translated,  tc  be 
of  'CHARACTER' (80)  mode. 

3  begins  the  'ENTER  ASSEMBLER  CODE'  statement. 

4  translates  the  characters  of  STRING  using  the  translate  table 
CASECONV. 

5  terminates  the  'ENTER  ASSEHELER  CODE'  statement. 
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This  example  translates  the  'INTEGER'  variable  NUMBER  into 
a  string  of  hexadecimal  characters  in  the  'CHARACTER'  (8) 
variable  HEXOUT. 

1  'DECLARE*  NUMBER  'INTEGER*  'LENGTH'  (5)  ; 

2  'DECLARE*  HEXOUT  'CHARACTER' (8)  ; 

3  'DECLARE*  WORK  • CHAR ACTER *  (9)  ; 

4  'DECLARE'  TAELE  'FIXED  ARRAY*  (256)  • CHARACTER'  (1)  ; 

5  'PRESET*  TABLE  (241)  :=  "O'*,  "1",  "2",  "3",  "4»,  "5", 

"6",  "7",  "8",  "9",  "A",  "B",  "C",  "E",  "E", 
"F"; 

6  'ENTER  ASSEMBLER  CODE'; 

7  UNPK  WORK  (9)  , NUMBER  (5)  ; 

8  TR  WORK  (8)  , TABLE; 

9  M VC  HEXOUT (8) , WORK; 

10  'END'; 

1  declares  NUMBER  to  be  of  'INTEGER'  'LENGTH' (5)  mode.  This 
causes  five  bytes  to  be  allocated  to  NUMBER,  the  first  four 
containing  its  value  and  the  last  being  unused.  This  unused 
byte  is  needed  because  of  the  idiosyncrasies  of  the  UNPK 
instruction  with  the  low-order  byte  as  pertains  to  this  usage  of 
it. 

2  declares  HEXOUT  to  be  of  'CHARACTER' (8)  mode.  The  hexadecimal 
character  string  result  is  left  here. 

3  declares  WORK  to  be  of  'CHARACTER*  (9)  mode.  This  is  a  wcrk 
area  used  during  the  conversion. 

4  declares  TABLE  to  be  a  'FIXED  ARRAY'  of  • CHARACTER' (1) 
components.  This  is  the  translate  table  which  is  referenced  at 
line  8. 

5  presets  the  translate  table  appropriately. 

6  begins  the  'ENTER  ASSEMBLER  CODE'  statement. 

7  unpacks  the  four  bytes  of  the  value  of  NUMBER  into  the  first 
eight  bytes  of  WORK.  The  four-bit  values  0...F  are  expanded 
into  the  eight-bit  values  F0...FF.  The  last  byte  of  both  NUMBER 
and  WORK  are  treated  as  the  sign  and  low-order  digit  by  the  UNPK 
instruction  and  are  ignored  by  this  algorithm. 

8  translates  the  eight  bytes  of  the  result  from  the  values 
F0...FF  to  the  appropriate  EBCDIC  character  representation. 

9  moves  this  i  suit  into  the  variable  HEXOUT. 

10  terminates  the  'ENTER  ASSEMBLER  CODE'  statement. 
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This  exaaple  aoves  n  characters  froa  A(i) . . .A  (itn-1)  to 
B  (1) . . .  B  (1* n- 1)  ,  where  A  and  B  ere  both  fixed  arrays  of 

'CHARACTER'  (1)  eleaents.  It  assuaes  that  1  S  n  S  256. 


1 

•DECLARE'  (A , B)  • FIXED  ARRAY' (32768) 

2 

•DECLARE*  (I ,  J  ,  N)  ' 

INTEGER' ; 

3 

•DECLARE'  (PTA, PTB) 

•POINTER' ; 

4 

PTA  .PT.  A  (I)  ; 

5 

PTB  :=  .PT.  B  (J)  ; 

6 

•ENTER  ASSEMBLER  CODE'; 

7 

' RESERVE' 

RLEN,  RA,  RB; 

8 

•LABEL' 

SKIP,  EXTHIS; 

9 

B 

SKIP; 

10 

■.EXTHIS  M  VC 

0(0, RB)  ,  0  (RA)  ; 

1 1 

: SKIP  L 

RLEN , N; 

12 

L 

RA, PTA ; 

13 

L 

RB, PTB ; 

14 

BCTR 

RLEN ,0; 

15 

EX 

RLEN, EXTHIS; 

16 

•END* ; 

(CHARACTER'  (1)  ; 


1  declares  A  and  B  to  be  of  'PIXEL  ARRAY'  (32768)  'CHARACTER*  (1) 
mode. 

2  declares  I,  J,  and  N  to  be  of  'INTEGER'  mode. 

3  declares  PTA  and  PTE  to  be  of  'POINTER'  mode. 

4  puts  the  address  of  A (i)  into  PTA. 

5  puts  the  address  of  E(j)  into  PTB. 

6  begins  the  'ENTER  ASSEMBLER  CODE'  statement. 

7  reserves  three  general-purpose  registers  named  RLEN,  RA,  and 
RB  for  use  in  this  assembler  code  section. 

8  declares  two  local  labels,  SKIP  and  EXTHIS. 

9  branches  to  the  next  instruction  to  be  executed.  This 
transfers  around  line  10  which  will  be  the  subject  instruction 
of  an  execute  instruction. 

10  is  the  subject,  instruction  of  the  execute  instruction  of  line 
15.  It  performs  the  actual  move. 

11  loads  the  number  of  characters  to  be  aoved  into  register 
hi  EN. 
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12  loads  the  address  of  A (i)  into  register  BA. 

13  loads  the  address  of  B(j)  into  register  BB. 

Id  subtracts  one  from  the  length,  for  the  HVC  instruction. 

15  executes  the  HVC  instruction  to  aove  the  n  characters. 

16  terminates  the  'ENTEB  ASSEHBLEB  CODE'  stateaent. 


This  example  reads  a  variable-length  input  record  via  the 
MTS  subroutine  SCABDS  and  then  sets  up  a  'VABYING  CHABACTEB ' 
variable  so  that  it  is  the  contents  of  the  record  that  has  been 
read.  It  assumes  that  the  record  read  will  have  a  length 
greater  than  zero  and  less  than  256. 


1 

•DECLABE' 

STBING  • 

VARYING  CHARACTER*  (255) 

'DECLABE' 

INABEA  • 

CHARACTER*  (255)  ; 

3 

•DECLABE' 

LEN  'INTEGEB  SHORT'; 

4 

•DECLABE' 

LINNUHB 

'INTEGEB*  ; 

5 

SCARDS. (INABEA, LEN 

,0, LINNUHB)  ; 

6 

•ENTEB  ASSEHBLEB  CODE' : 

7 

' RESERVE 

•  RLi’N ; 

8 

•COVER' 

STRING, INAREA; 

9 

•LABEL' 

SKIP,EXTHIS; 

10 

B 

SKIP; 

11 

:EXTHIS 

HVC 

STRING+2  (0) , INABEA; 

12 

•.SKIP 

LH 

RLE.., LEN; 

13 

STH 

RLEN, STRING; 

14 

BCTB 

RLEN  ,0 ; 

15 

16 

•END'; 

EX 

BLEN,EXTHIS; 

1  declares  STBING  to  be  of  'VABYING  CHABACTEB* (255)  mode. 

2  declares  INABEA  to  be  of  'CHABACTEB' (255)  mode. 

3  declares  LEN  to  be  of  • INTEGEB  SHOBT'  mode. 

4  declares  LINNUHB  to  be  of  'INTEGEB'  mode. 

5  reads  the  next  record  into  INABEA,  putting  its  length  into  LEN 
and  its  line  number  into  LINNUHB. 

6  begins  the  'ENTEB  ASSEHBLEB  CODE*  statement. 

7  reserves  a  general-purpose  register  and  names  it  BLEN. 
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8  guarantees  that  the  variables  STRING  and  INAREA  have  base- 
register  coverage  throughout  the  'ENTER  ASSEMBLER  CODE* 
statement.  This  is  necessary  because  these  variables  are 
referenced  by  the  MVC  instruction  of  line  11  which  is  the 
subject  of  the  EX  instruction  of  line  15. 

9  declares  two  local  labels,  SKIP  and  EXTHIS. 

10  branches  to  the  next  instruction  to  be  executed.  This 
transfers  around  line  11  which  is  the  subject  instruction  of  the 
execute  instruction  on  line  15. 

11  is  the  subject  instruction  of  the  execute  instruction  on  line 
15.  It  moves  the  contents  of  the  string  from  the  input  record 
in  the  variable  INAREA  into  the  proper  location  within  the 
variable  STRING. 

12  loads  the  length  of  the  string  into  RLEN. 

13  stores  the  length  of  the  string  into  the  proper  area  in 

STRING. 

14  subtracts  one  from  the  length,  for  the  HVC  instruction. 

15  executes  the  MVC  instruction  to  move  the  string  into  STRING. 

16  terminates  the  'ENTER  ASSEMBLER  CODE'  statement. 
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APPENDICES 


This  notation  is  used  to  describe  the  syntax  of  HAE/I.  It 
does  not  describe  the  meaning  of  language  elements  but  only  the 
syntax,  e.g.,  the  order  of  elements,  punctuation,  and  options 
that  may  occur.  Note  that  this  syntax  notation  is  used  for 
describing  MAD/I  but  is  not  itself  part  of  the  HA D/I  language. 

The  following  describes  the  syntax  notation: 

l<fiidliOfl_Va£iabie 

A  notation  variable  is  a  name  for  a  construction  in  the 
HA D/I  language.  It  may  be  formed  by: 

1)  Lower-case  letters  and  decimal  digits  and  it  must  begin 
with  a  letter. 

2)  A  combination  of  lower-  and  upper-case  letters  and  decimal 
digits.  There  must  be  at  least  one  portion  in  all  lower¬ 
case.  Each  portion  is  joined  to  the  adjacent  portions  with 
a  hyphen. 

Examples:  expression 

identifier 

procedure-call 

VALUE-statement 

All  notation  variables  are  defined  either  in  terms  of  this 
syntax  notation  or  in  terns  of  English.  If  a  notation  variable 
is  defined  with  this  syntax  notation,  the  variable  occurs  to  the 
left  of  the  definition  operator  =  and  the  definition  occurs  to 
the  right. 


Ho  Constant 

A  notation  constant  stands  for  the  literal  occurrence  of 
the  characters  composing  the  constant.  A  notation  constant 
consists  of  upper-case  letters,  digits,  and  special  characters. 
It  say  not  consist  of  any  lower-case  letters. 

Example:  'LENGTH' 

This  denotes  the  literal  occurrence  of  the  characters  'LENGTH'  . 
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Concatenation 

When  two  or  more  notation  elements  are  written  adjacent, 
they  denote  an  occurrence  of  the  first  element  followed  by  an 
occurrence  of  the  second  element,  and  so  on.  Blank  spaces 
between  notation  elements  have  no  significahce. 

Example:  'LENGTH'  (integer) 

This  denotes  an  occurrence  of  the  literal  characters  'LENGTH' 
followed  by  a  literal  lef t-parenthesis,  followed  by  a 
construction  denoted  by  the  notation  variable  "integer", 
followed  by  a  literal  right-parenthesis. 


Alternation  | 

The  vertical  bar  |  is  used  to  indicate  that  a  choice  is 
to  be  made. 

Example : 


storage-class  =  'BASED'  |  'STATIC'  |  ' AUTOMATIC ' 

This  means  that  "storage-class"  is  defined  to  be  either 
•BASED*  or  'STATIC'  or  ' AUTOMATIC' .  Alternation  has  lower 
precedence  than  concatenation;  e.g.,  x  |  y  z  means  x  |  {y  2)  . 


G£ouEing  {  } 

The  braces  (  }  may  be  used  to  denote  grouping  among 
notation  elements. 

Example : 

array  =  {  'FIXED  ARRAY'  |  'VARIABLE  ARRAY'  }  dimension 

This  is  equivalent  to 

array  =  'FIXED  APRAY*  dimension  |  'VARIABLE  ARRAY'  dimension 


0£t iona lity  [  ] 

The  square  brackets  [  j  are  used  to  indicate  that  something 
is  optiona1.  Wnatever  is  enclosed  in  square  brackets  either  may 
appear  or  ray  nor  appear.  In  addition,  the  brackets  imply  a 
nrouoir.q  o?  the  nosaticnal  elements  enclosed  within  them. 

Example:  xower-bound  =  [-]  integer 
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This  is  equivalent  to 

lover-bound  =  -  integer  |  integer 


Repetition 

The  notation  keyword  list  (which  Bust  always  be  underlined) 
nay  be  used  to  represent  a  sequence  of  iteas.  It  Bay  be 
followed  by  either  one  or  two  notation  expressions.  If  it  has 
one  arguaent,  it  stands  for  that  argunent  occurring  one  or  nore 
tines  in  succession. 


I .  e .  , 


list  x  is  equivalent  to  x  |  xx  |  xxx  |  ... 

If  list  is  used  with  two  arguments,  it  stands  for  a  sequence  of 
one  or  aore  of  the  second  argunent  separated  by  occurrences  of 
the  first  arguaent.  I.e., 

list  x  y  is  equivalent  to  y  (  list  {x  y)  ] 


Example: 


list  ,  label 


is  equivalent  to: 

label  |  label, label  )  label, label, label  |  ... 
The  following  precedence  holds: 


list  x  y 

is  equivalent  to 

{ 

lisi  x  y  ) 

and  is  not  equivalent 

to  {  li§i  x  )  y 

• 

• 

list  x  y  z 

is  equivalent  to 

C 

list  x  y  )  z 

rather  than  list  x  { 

y  z  }  . 

£ldei„Indepen deuce  # 

The  *  notation  is  used  where  order  is  not  iaportant,  i.e., 

x  *  y  is  equivalent  to  x  y  |  y  x 

The  #  notation  has  higher  precedence  than  either  alternation  or 
concatenation;  e.g., 

a  b  #  c  |  d  is  equivalent  to  a{b#c}|d 
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Syabol 

£ll®ed_syfbo2s 

4 

' ACCESSIBLE* 

•ACC* 

3.3 

-t 

'ALIGN* 

3.2.2 

J 

' ALLOCATE* 

5.13 

'ALTERNATE' 

•ALT* 

3. 1.2. 3 

] 

•AUTOMATIC' 

3.4.2 

' BASED* 

3.4.3 

'BEGIN' 

5.10 

'BIT* 

3. 1.1. 6 

'BLOCK' 

5.10,  7.1 

• 

' BOOLEAN  ' 

•BOOL' 

3. 1.1. 7 

'CHARACTER' 

•C* 

3. 1.  1.8 

'CLOSE' 

6.9. 1 

• 

•COMPONENT  STRUCTURE' 

•CS' 

3. 1.2. 2 

•COVER' 

15. 1. 1 

'DATA  SET' 

6.3.  2 

•  DEALLOCATE* 

5.13 

•DECLARE' 

'  DC  L ' 

3.6.1,  5.9 

•DECLARE  CSECT ' 

5.12 

'DECLARE  DEFAULT* 

• DCLD* 

3.7.2,  5.9 

'DECLARE  PSECT* 

5.12 

•DEFAULT' 

3.7.2 

•ECHO* 

6.4.6 

'  END  ' 

5.0,  5.10 

'END  FOR' 

5.4,  5.5 

'END  IF* 

5.3 

•END  OF  FILE* 

•  EOF' 

6.4.2 

* 

'END  OF  VOLUME' 

•  EOV* 

6.4.3 

'END  PROCEDURE' 

5.7 

'END  SUBSTITUTE* 

' ENDSUB* 

8. 1 

*' 

'END  VALUE'  , 

5.6 

'ENTER  ASSEMBLER  CODE* 

15.  1 

'ENTER  FACILITY' 

9 

'  ENTRIES ' 

6.3.4 

'FNTRY  NAME' 

'  EH* 

3. 1.2. 6 

'FNTRY  POINT' 

•EP' 

3. 1.2. 5 

'ERROR' 

6.4.4 

■ 

'ERROR  EXIT' 

4.2.7 

'  EXTFRNAL' 

•EXT' 

3.3 

'  FALSE' 

3. 1.1. 7,  2.2.2 

«... 

'  r  I L  r  N  A  *  E  ' 

3.1.1.10,  6.1 

'FIXED  ARRAY' 

•FA' 

3. 1.2. 1.  1 

- 

'  FLOATING' 

•F* 

3.1. 1.3 

•FLo/TTNG  LONG' 

•  FL' 

3. 1.1. 4 

•FLOATING  SHORT' 

•FS* 

3. 1.1. 3 

* 

'  FOR  • 

5.4 

1 

4 

i 
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•FO't  VALUES' 

5.5 

*T- 

1 

•FORMAT' 

6.5.1 

•GLOBAL' 

3.3 

•GO  TO' 

5.2 

•IF' 

5.3 

•INCLUDE' 

8.2 

•INTEGER* 

'I' 

3.1.  1.2 

•INTEGER  LONG' 

•IL' 

3. 1. 1.2 

•INTEGER  SHORT' 

'IS' 

3. 1.1.1 

1  f 

*  • 

'LABEL' 

15.  1.  1 

•LAST  LENGTH' 

6.5.4 

•LAST  LINE' 

6.5.3 

•LENGTH' 

3.2.1 

*  • 

'LINE' 

6.5.2 

'LIST' 

6.7.5 

'MAX  LENGTH' 

6.4.5 

•NEW' 

3.3 

•NOT  NEW' 

3.3 

'NULL  C' 

3. 1. 1.8 

'NULL  EN' 

3. 1.2. 6 

•NULL  PT' 

3. 1.2. 4 

'NULL  VC' 

3.1. 1.9 

'OPEN' 

6.9.1 

•OR  ELSE' 

•ELSE' 

5.3 

•OR  IF* 

5.3 

•PACKED' 

•  P* 

3. 1.1.5 

•  • 

•POINTER* 

•PT* 

3. 1.2.4 

'POP  SUBSTITUTE* 

8.1 

•PRESET' 

5.11 

•PROCEDURE* 

' PBOC' 

5.7,  7.1 

•  • 

'READ' 

6.9.3,  6. 

•READ  DATA' 

6.9.2 

•READ  UNCONVERTED' 

6.9.5 

*  ■ 

•REDIMENSION' 

5.14 

•RESERVE' 

15.  1.  1 

'RETURN' 

5.7.3 

•RETURN  TO' 

5.7.3 

'SAVE  CODE' 

4.2.7 

•STATIC' 

3.4.  1 

'STRING  DATA  SET' 

6.3.3 

•  * 

'SUBSTITUTE' 

8.1 

•TO' 

5.14 

•TRANSFER  POINT' 

3.1.1.11 

•* 

'TRUE' 

3.1. 1.7, 

'UNIT' 

6.3. 1 

•VALUE' 

5.6 

'VARYING  ARRAY' 

•  VA' 

3. 1.2. 1.2 

•VARYING  CHARACTER' 

•VC' 

3. 1.1.9 

•WITH' 

5.2 

'WRITE' 

6.9.3,  6. 

•  * 

'WRITE  DATA' 

6.9.2 

•WRITE  UNCONVERTED' 

6.9.5 
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Dotted  sraboXs 


.A. 

.  ABS. 

. ALLOC. 
.AND. 

.AS. 

. ASTYPE. 

. ASTYPEOF. 
.CONCAT. 
.CONV. 
.ENCON. 

.  EQV  . 

.  FV. 

.EXOR. 

.IND. 

.  LN. 

.  LS. 

.  LSA . 

.  N . 

.  NE. 

.  NEG. 

.  NOT. 

.OR. 

.  PT. 

. PTCON . 
.REM. 

.RS. 

.  RS  A . 

.TAG. 

.THEN. 

.  V. 


4.2.4 

4.2.1 

4.2.10 

4.2.3 

3.9 

3.9 

3.9 

4.2.5 

4.2.5 

4.2.10 

4.2.3 

4.2.4 

4.2.3 

4.2.10 

4.2.10 

4.2.4 

4.2.4 

4.2.4 

4.2.2 

2.2.4,  4.2.1 

4.2.3 

4.2.3 

4.2.10 

4.2. 10 
4.2.1 

4.2.4 

4.2.4 

4.2.6 

4.2.3 

4.2.4 
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Special  syabols  (see  also  Section  2.1.7) 


Symbol 

HUS 

Section 

Punctuation  symbols: 

( 

lef t-paren thesis 

) 

right-parenthesis 

9 

comma 

* 

semicolon 

• 

« 

colon 

2. 2. 1.2,  3.7 

•  •  • 

ellipsis 

3.1.2,  6.7.1 

* 

pound-sign 

4.2.6,  5.7.2 

Operators: 

(see  also  Section  4.3  for 

precedences) 

♦ 

plus 

4.2.  1 

- 

minus 

4.2. 1 

* 

asterisk 

4.2. 1 

/ 

slash 

4.2.  1 

** 

double-asterisk 

4.  2. 1 

= 

egual-sign 

4.2.2 

< 

less-than 

4.2.2 

> 

greater-than 

4.2.  2 

not-equal 

4.2.2 

<= 

less-than-or-equal 

4.2.2 

>= 

greater-t  han-or-egual 

4.  2.  5 

a 

at-sign 

3.6.3,  3.8 

f 

dollar-sign 

4.2.6 

• 

dot,  period 

4.2.7,  3.7.1 

not-sign 

4.2.3 

6 

ampersand 

4.2.3 

1 

vertical  bar 

4.2.3 

1  1 

double-bar 

4.2.5 

•  S 

• 

colon-equals,  assignment 

4.  2.9 

Also,  the  two-character  sequence  «  is  reserved  for  use 
cooaent  deliaiter. 


as  a 
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I»£lemeritati2£_fi£st£i£iion^ 

The  following  are  current  implementation  restrictions. 

They  are  coded  by  section  number  vithin  the  manual. 

r 

Section  £gSl£i£tjon 

2. 1.4.3  Pointer-constant  symbols  are  not  yet  supported.  The 

same  effect  can  be  obtained  through  the 

. PTCON.  operator.  See  Section  4.2.10. 

2. 1.4.4  Entry-name-constant  symbols  are  not  yet  supported. 

The  sane  effect  can  be  obtained  through  the 

.ENCON.  operator.  See  Section  4.2.10. 

2.2.5  The  "S"  operator  is  not  yet  supported.  Components  can 
be  accessed  by  using  the  component  name  as  if  it  were 
a  subscript;  e.g.,  COHPLXN (dREAL)  instead  of  CONPLXN  $ 

3REAL)  . 

3. 1.2.2  See  the  restriction  under  Section  2.2.5  concerning  the 
'•$"  operator. 

3.4.2  Automatic  storage  class  is  not  yet  supported. 

4.2.1  The  operator-mode  combinations  which  involve  'BIT' 

mode  as  both  the  first  and  second  operand  modes  are 
not  yet  implemented. 

4.2.4  The  bit-string  operations  are  not  yet.  defined  for 
'BIT'  mode. 

4.2.5  The  concatenation  operation  currently  is  not 
implemented  for  'VARYING  CHARACTER'  mode. 

4.2.6  The  operator  is  not  yet  implemented. 

4.2.6  Substring  selection  is  not  yet  implemented  for 
'VARYING  CHARACTER'  mode. 

4.2.7  The  phrase  Keywords  'ERROR  EXIT'  and  'SAVE  CODE'  are 
not  yet  npi  eciented .  Instead,  the  variable  fcRTNCCDE 
contains  the  value  of  the  last  return  code  from  the 
last  procedure  called.  %RTNC0DE  should  be 
interrogated  as  soon  as  possible,  since  compiler¬ 
generated  subroutine  calls  (for  I/O,  subscription, 
etc.)  also  modify  its  value. 


f 
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5.4  The  'FOR*  statement  cannot  appear  as  an  embedded 

statement  in  the  prefix  part  of  another  'FOR* 
statement  or  'FOR  VALUES'  statement. 

5.6  The  prefix  'VALUE'  V  :=  E  is  not  yet  implemented.  The 

same  effect  can  be  obtained  by:  'VALUE'  V;  V  :=  E  .... 

5.7.2  The  declaration  of  a  formal  parameter  with  an  "array- 
suffix”  in  which  the  "bounds"  entries  are  the  special 
symbol  #  is  not  yet  implemented. 

5.14  The  ' REDIMENSION'  statement  is  not  yet  implemented. 

6.7.1  The  elements  of  an  array  which  are  referenced  in  a 
block-element  must  have  a  length  equal  +o  the  "aligned 
length"  of  an  array  component.  See  Section  3. 1.2. 1 
for  a  discussion  of  aligned  length.  Hence  given  the 
following  declarations,  only  A  can  be  referenced  in  a 
block-element : 

•DECLARE*  A  'FA' (10,15)  'I', 

B  'FA*  (10,15)  'ALIGN'  (8)  'I', 

C  'FA'  (10,15)  t 'LENGTH*  (7) 

6.7.2  Array  expressions  are  not  yet  supported  in  data-lists. 

6.7.3  Component-structure  expressions  are  not  yet  supported 
in  data-lists. 

6.9.1  The  'OPEN'  and  'CLOSE'  statements  are  not  yet 
implemented. 

6.9.2  The  data 'directed  input/output  statements  ('READ  DATA' 
and  'WRITE  DATA')  are  not  yet  implemented. 

6.9.3  List-directed  input/output  is  not  yet  impie»ented. 

6.9.4  Only  a  subset  of  format-directed  input/output  is 

currently  ivplemented.  The  I/O-spec-list  must  always 
be  specified.  Its  elements  must  be  specified  in 

positional  fora.  The  first  element  is  taken  as  the 
format  and  is  mandatory.  The  second  element  is 
optional  and  is  interpreted  in  the  following  ways: 

(1)  If  it  ii.  absent,  the  logical  I/O  unit  SCARDS  is 

used  for  input;  SPRINT  for  output. 

(2)  If  the  first  byte  is  zero,  it  is  taken  as  an 

integer  unit  specification;  that  is,  a 
specification  of  logical  I/O  unit  0  through  9  or 
a  FDUB. 

(3)  In  all  other  cases,  it  is  taken  as  an  FDname,  and 

must  be  terminated  by  a  blank  character. 
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No  other  input/output  specifications  are  allowed. 

6.9.5  Unconverted  input/output  is  not  yet  ioplenented. 

7.1  The  outeraost  block  Bust  be  a  procedure  block; 

programs  written  as  conpound-statenent  blocks  nay  not 
conpile. 

15.1.2  Identifiers  used  as  operands  as  discussed  in  (5)  aust 
belong  to  the  outeraost  block  of  the  prograa. 


-E255i£l£_Ixt£J3§ioiIs 

The  following  are  extensions  to  the  HAD/I  language  and 
NAD/I  compiler  which  are  anticipated  as  future  developments. 


Expected  Extensions 

3. 1.1.8  The  aaxioua  nuaber  of  characters  allowed  in 

'CHARACTER'  node  values  is  expected  to  be  increased  to 
32767.  Lengths  greater  than  256  will  cause 
subroutines  to  be  called  when  used  as  operands  to  aost 
operations. 

4.2.10  Operations  comparable  to  the  PL/I  built-in  functions 
INDEX ,  TRANSLATE,  and  VERIFY  are  conteaplated. 

6.7.1  Biock-eleoents  are  expected  to  be  defined  across 

components  within  ail  the  structured  nodes,  not  just 
the  array  nodes. 


7.3  Recursive  procedures  are  conteaplated;  such  procedures 

would  require  the  declaration  of  a  'RECURSIVE' 
attribute. 
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